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1.  Title 

Conditional  Estimation  of  Vector  Patterns  in  Remote  Sensing  and  GIS: 
Interim  Report  3a 


2.  Abstract 

The  application  of  GIS  and  CAD  for  the  creation,  production,  and  testing  of  spatial  data 
has  increased  rapidly  throughout  the  Corps  of  Engineers.  Within  this  context,  raster 
information  from  satellite  and  airborne  scanners  have  been  used  to  provide  detailed 
information  for  regions  within  the  domestic  U.S.  that  are  either  poorly  documented 
(with  existing  vector  data)  or  incomplete  with  respect  to  specific  spatial  attributes.  The 
use  of  raster  data  within  GIS  has  been  primarily  applied  to  GIS  using  classification 
(supervised  or  un-supervised)  as  a  method  to  reduce  and  synthesize  the  multiple  bands 
of  co-registered  data.  As  discussed  within  ERO  Interim  Report  I  and  Report  II, 
numerous  problems  may  result  in  the  direct  application  of  classified  data.  First,  this 
information  may  be  incorrectly  clustered  due  to  poor  alignment  of  the  data  with  respect 
to  underlying  assumptions  (normality,  symmetry,  bias).  Second,  the  information 
remains  in  a  purely  raster  format  that  requires  physical  conversion  from  pixel  to  line 
orientation.  This  conversion  is  generally  accomplished  using  either  "on-screen" 
digitizing  or  table-format  digitizing.  The  on-screen  method  is  decidedly  poor  for  high 
precision  applications  since  the  maximum  resolution  of  the  resultant  vector  image  is 
equivalent  to  the  maximum  resolution  of  the  display  screen  (Williams  [1998]).  The  table 
format  method  is  acceptable,  if  Quality  Control  and  Quality  Assurance  (QA/QC) 
methods  are  applied  at  each  step  in  the  conversion  process  (Barr  [1994]).  Using  either 
on-screen  digitizing  methods  or  table  format  digitizing  methods  is  difficult  with  satellite 
and  airborne  data.  This  is  primarily  due  to  the  fact  that  multiple  channels  of  data  are 
available  with  very  detailed  geometric  shapes,  forms,  and  patterns.  As  a  result,  the 
digitizing  process  is  laborious  and  requires  careful  editing  of  converted  information 
within  a  separate  QA/QC  process.  Within  this  interim  report,  we  examine  specific 
algorithms  for  the  automatic  conversion  of  raster  data  into  an  equivalent  co-registered 
vector  format.  The  focus  of  this  effort  is  toward  automated  techniques  for  the  geometric 
conversion  of  raster  data  using  high  precision  edge  detection.  This  investigation  will 
initially  focus  on  perpendicular  connections  (Section  3),  and  will  then  examine 
techniques  for  combining  raster  patterns  (Section  4).  Algorithms  for  automated 
conversion  of  raster  data  into  vector  models  will  be  provided  within  the  discussion  of 
each  topical  area. 
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3.  Perpendicular  Connections  (Lines  and  Nodes) 

A  fundamental  property  of  CAD  and  GIS  is  that  straight-line  junctions  and  their 
interconnections  contain  all  information  that  is  needed  about  the  graphical  parts  of  the 
raster  image  (starting  data).  Moreover,  right  angle  turns  can  be  neglected  if  we  are 
interested  only  in  the  logical  interpretation  of  the  schematic  (Horn  [1997]).  Thus,  the 
features  to  be  detected  are  T-junctions,  X-junctions,  endings,  and  their  interconnections. 
The  connectivity  between  the  GIS  features  is  found  by  propagation  along  the  connected 
lines. 


The  T-junction  has  four  possible  orientations: 

H  1  H  T 

Figure  (1):  Perpendicular  T-  Junctions.  Two  line  segments  that  cross  to  form  a  simple  geometric  shape. 
Each  T-junction  is  rotated  90  degrees. 

The  orientation  facilitates  the  combination  of  T-junctions  into  separate  components.  The 
X-junction  is  a  crossing  of  two  paths  (signals).  It  is  converted  into  four  endings,  which 
are  pair-wise  entered  in  a  table.  The  only  reason  for  this  is  to  avoid  erroneous 
connections  of  the  other  features  when  the  interconnections  are  checked.  Otherwise,  the 
X-junctions  could  be  neglected  completely. 

There  are  two  types  of  endings:  end  points  and  border  points.  An  end  point  can  have 
four  orientations.  The  orientation  indicates  where  to  possibly  find  characters  naming  a 
signal.  The  border  points  of  consecutive  windows  are  associated  with  each  other  to 
connect  the  separate  windows. 

The  junctions,  endings  and  their  interconnections  constitute  a  topological  net  with  four 
node  types.  The  reduction  of  a  window  from  lines  and  junctions  to  a  topological  net  is 
illustrated  in  Figure  (2a,b).  In  Figure  (2a),  the  basic  mesh  is  shown  for  a  series  of 
perpendicular  intersections  such  as  those  generated  within  a  standard  CAD  application. 
In  Figure  (2b),  a  primary  topological  net  is  shown  for  the  same  image  consisting  of  both 
nodes  and  line  segments.  In  this  illustration,  the  four  main  topological  nodes  are 
labeled  (T-nodes,  X-nodes,  End-Nodes,  and  Border  Nodes).  T-nodes  connect 
perpendicular  line  segments  that 
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Figure  (2a):  Perpendicular  Line  Segments.  This  figure  illustrates  a  typical  sub-area  within  a  standard 
CAD  or  GIS  AM/FM  drawing  such  as  those  used  to  describe  utility  corridors  of  transportation  paths. 


Figure  (2b):  Example  Topology.  This  figure  illustrates  a  typical  topological  structure  for  encoding  the 
perpendicular  line  segments  shown  in  Figure  (2a).  For  the  purpose  of  this  discussion,  only  four  nodes  are 
labeled. 
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occur  within  the  interior  of  the  raster  image. 


- 0--  X-nodes  connect  two  crossing:  line 

segments  that  form  right  angles  at  the  crossing  connection.  End-nodes  mark  the 
conclusion  of  a  line  segment  within  the  interior  of  the  raster  image.  Border  nodes  mark 
the  conclusion  of  a  line  segment  along  the  maximum  exterior  of  the  raster  image. 


The  schematic  is  ideally  a  two-level  raster  image:  line  and  background  being  black  and 
white,  respectively  However,  several  factors  contribute  to  the  creation  of  a  Grey-scale 
image.  The  mam  factors  are  varying  illumination,  non-uniform  sensitivity  (shading). 


3.1  Thresholding  and  Shrinking  Geometric  Patterns 


The  first  operation  (in  raster  to  vector  conversion)  must  be  to  regain  a  binary  image  for 
edge-detection.  Because  of  the  shading  context  in  complex  raster  images  (satellite  and 
irborne  data),  no  single  threshold  works  well  throughout  the  image.  The  following 
three  statements  give  a  clue  to  a  good  local  threshold  algorithm:  ° 


•  The  line  segments  are  2  or  3  pixels  wide 

•  The  line  segments  are  horizontal  or  vertical 

•  The  contrast  between  lines  and  background  is  fairly  constant  throughout  the 


image 


These  observations  indicate  that 
different  operator  types  shows 
LaPlacians  (one  horizontal  and 
formally  given  by: 


a  difference  operator  should  be  used.  The  testing  of 
that  the  logical  OR  ( II )  of  two  "one-dimensional" 
one  vertical)  gives  a  robust  result.  The  operator  is 


F«  =  T>  <20«  -  0«.i  - e«] )  1 1  T, (20,,  - 0,. 3  -  0M>J) 


(1) 


Where 

T  is  a  threshold  operator  TO  mapped  into  (0,1)  and  0  is  the  average  of  a  3x3  pixel  kernel  where  the 
RgureTi)'1  ^  Center  (Centr°id)  °f  the  kerneL  LaPlacian  operator  for  ttiis  kernel  is  shown  in 


The  thresholding  is  followed  by  an  8-pixel  connectivity  preserving  the  shrinking  to  only 

M Sftww  'I  veforizf°^  This  facilitates  the  processing  of  lines  and  junctions 

hni  hu  rbefT  shnnkmS'  the  lines  are  expanded  one  pixel  to  fill  gaps  and  holes.  Short 
lines  and  free  lines  connected  to  the  boundary  are  deleted. 
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Figure  (2c):  The  two  "one-dimensional"  LaPlacian  Operators.  The  interior  of  each  pixel  (square)  is  shown 
with  the  loading  coefficient  "-1,2, -1"  The  exterior  numeric  digit  "3"  shows  the  equalization  value  (always 
equal  to  +3). 


3.2  X-Junction  Operations 


An  X-junction  can  be  slightly  distorted  by  the  shrinking  operation  described  in  Section 
(3.1).  As  a  result,  the  geometric  shape  can  be  visualized  as  two  T-junctions  (see  Figure 
3).  The  detection  of  X-junctions  must  include  detection  of  closely  spaced  T-junctions. 
The  T-junctions  which  are  detected  by  a  set  of  3x3  templates,  are  marked  and 
propagated  3  pixels.  If  two-junctions  join,  this  point  is  marked  as  an  X-junction.  All  X- 
junctions  are  then  propagated  four  pixels  and  the  fifth  pixel  in  the  four  step(pixel) 
expansion  is  marked.  The  X-junction  is  then  deleted.  To  calculate  how  to  combine  the 
four  signals,  we  divide  the  raster  image  into  four  quadrants  from  the  kernel  center-point 
(Figure  4a, b).  One  end-point  should  be  in  each  quadrant  (if  not,  a  warning  is  given  to 
the  operator).  The  upper  and  lower,  and  left  and  right  pixels  are  then  connected.  The  X- 
junction  is  inserted  in  a  table 
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Figure  (3):  Example  X-junctions.  In  this  illustration  two  sample  images  are  shown  with  single  pixel  width 
geometries.  The  vectorization  of  these  patterns  requires  careful  detail  at  intercrossing  locations. 


Figure  (4a):  Elimination  of  the  X-junction  Part  1.  Pixels  adjacent  to  an  X-junction  are  marked  for 
"shrinkage"  prior  to  formal  vectorization. 
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Figure  (4b):  Elimination  of  the  X-junction  Part  2.  Tie  points  are  used  to  separate  the  junction 
components  into  perpendicular  quadrants.  These  quadrants  insure  that  the  X-junction  (decomposed  into 
separate  T-junction  elements)  can  be  re-constructed  as  a  proper  X  geometry. 


(Figure  5).  The  center  coordinate  and  the  coordinates  for  the  two  combined  signal  end¬ 
points  are  inserted.  In  this  operation,  there  is  space  (adjacent  pixels)  that  is  connected  to 
the  filled  X-junction.  These  empty  pixels  can  be  connected  in  the  final  operation. 


Center  Coordinate 

Center  Coordinate 

Two  Combined  Points 

Connected  Junction 
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Figure  (5):  The  Connection  Table  for  X-Junctions.  This  table  is  used  to  re-construct  the  topology  for  the 
crossing  X  geometric  forms.  The  table  includes  center  coordinates  for  the  moving  kernel,  connected 
junction  points  and  related  labels,  the  two  combined  points  (x,y),  (x,y)  and  the  label  for  the  connected 
junction. 
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3.3  End-Points 

The  orientation  of  the  end-points  are  determined  by  propagation  and  identification  of 
quadrant.  The  rules  and  operations  governing  the  assignment  of  end-points  mirror 
those  described  in  the  previous  section.  The  border  points  are  end-points  connected  to 
the  raster  image  border  (or  sub-area  delineation).  They  are  temporarily  tabulated  for 
connecting  the  3x3  kernel  windows. 


3.4  Connectivity 

When  all  nodes  (junctions  and  end-points)  are  registered,  the  interconnections  must  be 
deleted.  This  is  accomplished  by  propagation  in  the  lines  (Leonard  [1994]).  The  nodes 
can  not  be  propagated  in  parallel,  since  there  is  only  4  bits  per  pixel,  and  this  is  not 
sufficient  to  assign  one  unique  marker  to  each  node.  For  this  reason,  we  start  with  T- 
nodes,  since  this  allows  three  segments  to  be  propagated  (each  leg  of  the  T-junction).  A 
marker  is  assigned  to  the  node,  and  the  marker  is  propagated  until  another  node  is 
reached.  When  the  new  node  is  encountered,  the  coordinate  and  type  of  node  is 
inserted  in  the  topology  table  shown  in  Figure  (5).  The  coordinate  of  the  T-junction  is 
inserted  in  the  table  of  the  encountered  node.  Thus,  we  have  a  double  linked  list 
representing  the  graph.  A  line  that  has  been  propagated  is  deleted.  When  all  T-nodes 
have  been  propagated,  the  algorithm  continues  with  the  other  nodes  until  no  more  lines 
remain  in  the  kernel  window. 

Propagation  is  a  rather  time  consuming  operation.  Each  iteration  requires 
approximately  20  milliseconds  on  a  Sun  Sparc  20  single  processor  system.  Thus,  a 
propagation  from  one  side  of  the  kernel  window  to  the  other  takes  64  x  20  milliseconds 
=  1.28  seconds.  The  time  for  propagation  is  reduced  by  "sequential"  propagation,  which 
implies  that  lines  going  to  the  right  or  down  from  the  node  are  propagated  in  one 
operation.  This  would,  on  the  average,  reduce  the  time  50  percent  (half  the  lines  are 
going  down  or  to  the  right  from  the  nodes).  Since  the  nodes  in  the  upper  left  corner  are 
propagated  first,  the  reduction  is  larger  as  the  kernel  moves  downward  through  the 
raster  image. 


4.  Combining  Raster  Patterns 

Raster  patterns  are  combined  using  arithmetic  operations  for  addition,  subtraction, 
multiplication,  and  division.  Each  operation  is  selected  based  upon  propagation.  When 
a  segment  is  propagated  the  RGB  signatures  are  combined  to  create  an  optimal 
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connection  that  "feathers"  identical  features  with  minimum  distortion.  When 
performing  the  pixel  addition,  the  following  algorithm  is  applied: 


Pi,j  (r)  =  Pi,j  (°0  +  Pi,j  (?)  ;  0  <  pg  (r)  <  Pi/j  (m)  (2) 

Pi,j  (r)  =  Pi,j  (m)  ;  otherwise 


Where 

p  •  j  (r)  is  the  pixel  value  assigned  to  the  result  (or  target)  window  r  at  the  horizontal  position  i  and 

vertical  position  j  within  the  original  raster  image, 
p-  j  (a)  is  the  pixel  value  extracted  from  the  base  image  at  the  horizontal  position  i  and  vertical 

position  j. 

Pi  j  (q)  is  the  pixel  value  of  the  kernel  window  at  the  horizontal  position  i  and  vertical  position  j, 
and 

p-  j  (m)  is  the  maximum  value  any  pixel  can  attain  at  the  horizontal  position  i  and  vertical  position 
j.  For  8  bit  color  pj  j  (max)  =  255,  for  24  bit  color  the  maximum  is  scaled  relative  to  the  16.7 

million  colors. 


Pixels  are  added  together  provided  the  result  does  not  exceed  the  maximum  displayable 
intensity  produced  by  the  image  processor. 

When  performing  the  pixel  subtraction,  the  following  algorithm  is  applied: 


Pi,j  (r)  =  Pi,j  (a) '  Pi,j  (?)  ; 

0  <  Pi,j  (r)  <  pg  (m) 

Pi,j  (r)  =  0 

;  Pi,j  (a)  <  Pi,j  (?) 

Pi,j  W  =  Pi,j  (m) 

;  otherwise 

Where 

Pi,j  (r),  pjj  (a),  pjj  (q),  and  p^j  (m)  are  as  described  in  Equation  (2). 
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In  Equation  (3),  the  algorithm  assigns  a  pixel  result  pyj  (r)  equal  to  zero  when  the 
magnitude  of  the  copied  pixel  pyj  (a)  is  less  than  or  equal  to  the  magnitude  of  the  kernel 

pixel  pyj  (q).  This  constraint  is  required  to  insure  that  no  pixel  assignments  are  made 
that  result  in  negative  digital  values.  In  a  similar  manner,  the  pixel  result  pyj  (r)  is  set 
equal  to  the  maximum  level  for  the  video  display  pj  j  (m)  when  the  result  pyj  (r)  is 
greater  than  or  equal  to  the  maximum  pixel  depth. 


When  performing  the  pixel  multiplication,  the  following  algorithm  is  applied: 


Pi,j  (r)  =  Pi,j  (a)  *  Pi,j  (?)  ;  o  <  py  (r)  <  py  (m)  (4) 

Pi,j  (r) =  Pi,j  (m)  ;  Otherwise 


Where 

Pi,j  (r)-  Pi,j  («),  py  (q),  and 

Pi  j  (m)  are  as  described  in  Equation  (2). 


As  shown  in  Equation  (4),  pixels  are  multiplied  at  a  given  horizontal  (i)  and 
vertical  location  (j)  provided  the  result  pyj  (r)  is  bounded  between  zero  and  the 

maximum  displayable  intensity  level  pjj  (m).  When  the  result  pyj  (r)  exceeds  the 
maximum  pyj  (m),  the  target  image  is  assigned  a  maximum  level  that  can  be  displayed 
by  the  workstation.  Pixel  division  is  performed  based  upon  the  respective  digital  values 
found  within  the  raster  pattern  and  kernel  windows.  The  division  is  rounded  to  the 
nearest  integer  value  for  display  and  is  bounded  within  the  minimum  and  maximum 
displayable  intensities  of  the  workstation.  When  performing  the  pixel  division,  the 
following  algorithm  is  applied: 
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Pi,j  (r)  =  /(Pi,j  (a)  +  Pi,j  (?)) 

;  0  <  pg  (r)  <  pg  (m) ;  pg  (q)  >  0 

Pi,j  (f)  =  Pi,j  (m) 

;  Pi,j  (?)  =  o 

Pi,j  (r)  =  Pi,j  (m) 

;  Pi,j  (r)  >  Pi,j  (m) 

Where 

Pi  j  (r),  pj  j  (a),  py  (<;),  and  py  (m)  are  as  described  in  Equation  (2),  and  the  function  /  is  used  to 
round  the  result  of  the  division  operation  to  the  nearest  integer. 


In  Equation  (5),  the  division  is  performed  provided  the  result  of  the  operation  is 
bounded  between  zero  and  pg  (m).  When  the  denominator  pg  (<;)  is  equal  to  zero,  the 
division  cannot  be  performed,  and  the  resultant  pixel  is  assigned  the  maximum  intensity 
(i.e.  pg  (r)  =  pg  (m)).  For  the  condition  when  pg  (r)  >  pg  (m),  the  level  is  scaled  down 

to  the  maximum  displayable  intensity  of  the  workstation.  When  the  division  is 
performed,  the  result  is  rounded  to  the  nearest  integer  for  representation.  For  example, 
if  the  result  of  a  division  is  such  that  pg  (a)  +  pg  (q)  =  26.4,  a  digital  value  of  26  is 
assigned  to  the  pixel  pg  (r).  Alternatively,  if  the  result  of  a  division  is  such  that  pg  (a)  + 

Pi,j  (?)  =  26.5  or  26.6,  a  digital  value  of  27  is  assigned  to  the  pixel  pg  (r).  Note  that  pixel 
division  is  extremely  sensitive  to  the  assignment  of  the  source  pattern  and  target 
(kernel)  images,  since  these  assignments  control  the  resultant  assignment  pj  j  (r)  =  /{pg 

(_C)  -s-  pg  (_V)}  in  Equation  (5). 5.  Connecting  Kernel  Windows  During 

VectorizationThe  nodes  and  arcs  from  the  64  x  64  windows  are  put  together  to  produce 
the  global  topological  net,  which  contains  the  information  needed  for  a  logical 
description  of  the  schematic.  The  process  steps  are  illustrated  in  Figure  (6a, b).  The 
procedure  eliminates  all  border  nodes  except  those  that  represent  global  border  nodes 
(signals  connected  to  the  border  of  the  schematic). 
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The  windows  are  digitized  from  separate  raster  patterns,  which  give  a  small  uncertainty 
in  the  location  of  a  node.  A  small  overlap  of  the  windows  is  needed  to  ensure  that 
nodes  at  the  window  borders  will  be  detected. 


Figure  (6a):  Digitizing  and  Shrinking  a  T-junction.  The  T-junction  is,  due  to  registration  error, 
moved  one  pixel  to  the  left  in  the  right  image.  This  produces  an  erroneous  interpretation  of  the 
vector  pattern. 


When  overlap  is  introduced,  we  will  not  miss  any  nodes,  but  a  node  can  be  detected  in 
any  of  the  four  overlapping  windows  (kernels).  This  introduces  the  problem  of 
identifying  corresponding  nodes  and  reducing  them  into  one  "common"  node  with  the 
correct  connections.  The  reduction  of  the  nodes  is  facilitated  if  the  windows  are  joined 
in  the  sequence  shown  in  Figure  (7a). 
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A  solution  to  the  problem  with  connection  of  windows  would  be  to  use  a  scanner 
capable  of  digitizing  the  whole  sheet.  The  digitized  image  could  then  either  be 
compressed  and  stored  for  processing  by  a  computer  or  by  a  pipelined  processor 
immediately. 


0 


<j) 


Figure  (6b):  Vector  T-junctions.  The  raster  T-junction  shown  in  Figure  (6a)  is  projected  into 
vector  space.  One  possible  discrimination  is  shown  using  perpendicular  elements. 


Only  two  areas  at  a  time  are  joined,  so  there  can  be  only  two  nodes  that  correspond  to 
each  other.  Two  nodes  are  treated  as  equal  if  they  are  within  a  square  of  4x4  pixels  and 
have  the  same  properties. The  connections  to  the  nodes  are  treated  pairwise  (the 
corresponding  connections  from  the  two  nodes  are  applied).  The  two  corresponding 
connections  (Pixel;  "A"  and  "B"),  fulfill  one  of  the  following  three  alternatives  shown  in 
Figure  (7b,c,d): 
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Figure  (7a):  The  Joining  of  Windows.  Pixels  are  joined  from  upper-left  to  lower-right.  The 
joining  begins  at  the  far  left  edge  and  proceeds  in  steps  as  shown. 


Figure  (7b):  No  Connection  Between  Adjoining  Kernel  Windows.  Pixel  “A”  is  clearly  separated 
from  Pixel  “B”. 
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Figure  (7c):  Pixel  “A”  is  Connected  to  Pixel  “C”,  and  Pixel  “B”  Remains  Unconnected. 


Figure  (7d):  Pixel  “A’'  and  Pixel  “B”  are  Connected  to  Border  Pixels  Along  the  Kernel  Window. 


•  Pixel  "A"  has  no  connection,  while  Pixel  "B"  is  connected  to  a  node  which  is  not  a  border-node  adjacent 
to  Pixel  "A”). 

•  Pixel  " A "  is  connected  to  a  border-node  (Pixel  "C")  within  the  neighborhood  of  Pixel  "B".  Pixel  "B"  is 
also  connected  to  the  border  node. 

•  Both  Pixel  "A”  and  Pixel  "B"  are  connected  to  the  two  corresponding  border  nodes. 
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In  all  cases  (a-c),  the  algorithm  keeps  Pixel  "A"  and  deletes  Pixel  "B".  Pixel  "A"  is 
connected  to  the  border  element.  Pixel  "C"  and  all  neighborhood  border  pixels  are 
deleted. 


6.  Border  Connections 

Two  border  nodes  that  correspond  to  each  other  are  deleted  and  the  double  linked 
graph  is  updated  (Figure  8a).  It  is  mainly  two  problems  that  complicate  the  elimination 
of  border  nodes:There  are  border  nodes  which  have  no  corresponding  node  (Figure 
8b).There  is  a  long  distance  between  two  corresponding  nodes  (Figure  8c).The  same 
border  node  can  also,  as  the  other  nodes,  be  present  in  two  separate  kernel  windows. 


Figure  (8a):  The  Elimination  of  Pixels  within  a  Linked  Graph.  Adjacent  pixels  are  labeled  and  removed 
based  upon  a  linked  list.  Each  Pixel  "PI"  and  "P2"  is  linked  to  a  unique  node  "Nl"  and  "N2".  The 
resultant  topology  is  a  linked  list  of  nodes  ("Nl"  and  "N2"  only). 
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□ 

R1 

R2 

Figure  (8b):  Border  Nodes  with  No  Corresponding  Node. 


Figure  (8c):  Distance  Separation  Between  Border  Nodes. 


The  connection  of  border  nodes  is  directed  by  the  following  rules: 
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•  Border  nodes  can  not  be  joined  in  a  cross  pattern  as  shown  in  Figure  9a. 

•  Border  nodes  can  be  without  corresponding  nodes  only  if  they  are  connected  to  a  border  node  (for 
example  Figure  9b),  or  are  part  of  a  double-detected  node  as  shown  in  Figure  9c. 

•  All  border  nodes,  except  the  global  edge  of  the  complete  raster  image,  are  eliminated. 


\  / 
\  / 

\  / 
\l 
A 

/  \ 


/  \ 

/  \ 

/  \ 


Figure  (9a):  Pixels  Linked  within  a  "Cross"  Pattern. 


Figure  (9b):  Pixels  Connected  to  a  Common  Border. 
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Figure  (9c):  Pixels  Separated  by  the  Moving  Kernel  Window  Resulting  in  a  "Double-Detected"  Comer 
Node. 


The  routine  for  connection  of  the  border  nodes  starts  at  one  end  of  the  borderline  and 
processes  the  border  pixels  in  a  pairwise  fashion.  If  the  distance  between  the  nodes  is 
large,  then  the  second  rule  is  used  to  decide  when  a  node  can  be  neglected.  This 
technique  works  very  well,  but  there  are  cases  where  this  is  not  enough  information  to 
decide  which  border  nodes  should  be  neglected  (Marr  and  Hildreth  [1997]).  Figure  9d 
shows  two  borders  that  should  be  connected.  The  lower  border  has  two  border  nodes 
more  than  the  upper  border.  Which  nodes  should  be  neglected?  Within  the  basic 
algorithm,  it  is  impossible  to  say,  because  the  original  raster  image  can  be  of  the  form 
shown  in  Figure  (9e)  or  Figure  (9f).  This  example  occurs  in  very  limited  cases,  but  is 
provided  to  show  that  the  basic  connection  routine  can  make  errors.  To  improve  the 
algorithm,  one  must  also  use  the  orientation  of  the  border  points.  When  all  the  kernel 
windows  have  been  connected,  there  is  a  global  graph  describing  the  graphics  part  of 
the  schematics.  This  graph  is  searched  to  find  the  components  and  signals.  This 
produces  a  new  graph,  where  the  nodes  are  components  or  logical  units  and  the  arcs  are 
signals. 
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Figure  (9d):  Single  Border  Connections. 
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7.  Conclusions 

Due  to  the  drawing  conventions  adopted,  a  component  is  characterized  as  a  geometric 
square  with  connections  on  two-opposing  sides.  Hence,  a  component  can  be  recognized 
by  a  search  in  the  T-node  table,  where  it  is  represented  as  a  cycle  of  T-nodes.  Other 
conditions  that  must  be  fulfilled  by  the  T-nodes  are: 


1)  The  cycle  must  contain  two  sequences  of  similar  angles  of  orientation. 

2)  The  orientations  must  differ  by  Tt. 

3)  The  "legs"  of  the  T-shaped  patterns  must  point  outward  from  the  component. 


Only  a  component  can  fulfill  these  requirements  in  a  correctly  drawn  schematic. 

When  the  components  have  been  found,  each  element  is  assigned  a  digital  number  and 
four  coordinates  describing  its  relative  position.  The  connections  are  assigned  digital 
numbers  according  to  their  respective  location  at  the  connection  node.  The  remaining 
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When  the  components  have  been  found,  each  element  is  assigned  a  digital  number  and 
four  coordinates  describing  its  relative  position.  The  connections  are  assigned  digital 
numbers  according  to  their  respective  location  at  the  connection  node.  The  remaining 
part  of  the  graph  is  signal  (non-noise  separation).  Each  signal  is  a  binary  tree.  A  binary 
search  is  used  to  find  the  connection  between  the  components.  Signals  that  have  end 
points  are  associated  with  a  neighborhood  in  connection  with  the  end  point. 

In  a  subsequent  procedure,  the  interior  of  the  components  and  the  signal  neighborhood 
are  rescanned  for  recognition  of  component  identification  and  signal  names.  The 
orientation  of  the  end  points  and  components  indicates  the  orientation  of  the  character 
strings,  which  facilitates  a  correct  rescanning  of  the  raster  pattern.  The  rescanning  is  done 
at  a  high  resolution  of  approximately  2.2  pixels  per  millimeter. 


The  algorithm  described  within  this  research  demonstrates  a  viable  alternative  to 
standard  digitizing  of  raster  patterns  into  a  vector  model.  Whether  an  automatic 
vectorization  method  can  provide  benefits  greater  than  costs  depends  on  the  system 
processing  capabilities  and  the  reliability  of  the  output  vector  model.  The  equipment 
costs  for  interactive  systems  and  for  a  system  of  the  proposed  type  are  comparable,  but 
the  programming  is  more  complex  in  the  latter  case  (automated  vector  modeling).  The 
economic  advantage  of  the  automatic  conversion  stems  from  its  shorter  processing  time 
which  allows  engineers  to  be  more  effective.  One  raster  scene  at  24-bit  pixel  depth 
(640x480  pixels)  can  be  processed  in  about  two  minutes.  Depending  upon  pattern 
complexity  and  classification,  an  equivalent  vectorization  using  hand-digitizing  will 
require  from  2  to  4  hours  with  additional  error  in  interpretation  (non-systematic 
approach).  The  algorithm  has  proven  to  give  reliable  results,  which  indicates  that  the 
pattern-recognition  process  is  not  a  limiting  factor.  In  future  research,  the  algorithm  will 
be  adapted  to  non-grayscale  images.  This  will  require  clear  separation  of  red,  green,  and 
blue  components  as  separate  bands  of  data,  as  opposed  to  linked  tables.  This  may  be 
easily  accomplished  using  the  covariance  matrix  as  a  scaled  weight  between  spectral 
bands.  In  this  approach  the  covariance  or  eigenvalue  is  used  as  a  digital  multiplier  for 
connecting  the  pattern  across  spectral  bands.  This  approach  holds  genuine  promise  for 
applications  where  basic  patterns  cannot  be  synthesized  (reduced)  to  an  orderly  grayscale 
representation.  In  this  case,  the  vectorization  can  be  applied  to  a  non-classified  image 
with  clear  separation  based  upon  the  "eigenvectors"  that  connect  each  spectral  band. 
Additional  research  is  warranted  in  this  area  for  the  application  of  automated  methods 
with  multispectral  data. 
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9.  Appendix 


Within  this  appendix,  fully  documented  source  code  is  provided  for  all  vector  conversion 
algorithms.  Additional  algorithms  are  provided  for  the  estimated  of  variance  within  vector 
fields  (topographic  tables).  The  vector  fields  are  used  to  estimate  the  mean  representation  for 
the  final  vector  pattern.  The  variance  estimation  procedures  are  required  for  quality 
assurance  and  quality  control  of  all  algorithms.  The  complete  simulation  engine  is 
programmed  for  Windows  95  and  Solaris  UNIX  applications. 


Vector  CApplication. c 


The  Abstract  class  for  a  UNIX  application.  Programmers  must  create  a  subclass  of 
CApplication  for  their  own  programs.  The  application  is  at  the  top  of  the  chain  of 
command  and  defines  the  behavior  of  the  program  and  its  interaction  with  the  UNIX 
OS. 


SUPERCLASS  =  CVectorization 

t*****************************************************************************/ 


#include 
tinclude 
#include 
#include 
# include 
# include 
tinclude 
#include 
# include 
#include 
# include 
#include 


" Global. h" 
"Constants .h" 

" CApplication . h" 
"Commands . h" 
"OSChecks.h" 
"CDirector . h" 
"CError ,h" 

" TBUtilities .h" 

” CDesktop . h" 
"CBar tender . hn 
"CClipboard.h" 
"CDecorator . hn 


/***  Global  Variables  ***/ 


extern 

CApplication 

*UApplication; 

/* 

Application  object 

*/ 

extern 

CDesktop 

*gDesktop ; 

/* 

The  visible  Desktop 

*/ 

extern 

CBartender 

*gBartender  ; 

/* 

Manages  all  GUIs 

*/ 

extern 

CClipboard 

*gClipboard; 

/* 

Copies  and  Pastes 

*/ 

extern 

CVectorization 

*gGopher ; 

/* 

get  commands 

*/ 

extern 

CError 

*gError ; 

/* 

Error  handler 

*/ 

extern 

CDecorator 

*gDecorator ; 

/* 

Decorator  for  arr.  windows 

*/ 

extern 

long 

gSleepTime; 

/* 

Max  time  between  event 

*/ 

extern 

Boolean 

gHasWNE ; 

/* 

Is  WaitNextEvent  implemented? 

*/ 

extern 

Boolean 

glnBackground ; 

/* 

In  background  under  MultiSpectral 

*/ 

extern 

OSType 

gSignature; 

/* 

Creator  for  Application's  files 

*/ 

extern 

EventRecord 

gLastMouseDown; 

/* 

Previous  mouse  down  event 

*/ 

extern 

EventRecord 

gLastMouseUp; 

/* 

Previous  mouse  up  event 

*/ 

extern 

CView 

*gLas tViewHi t ; 

/* 

Last  view  clicked  in 

*/ 
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extern 

short 

gClicks ; 

/* 

Click  counter,  =  1  single 

click 

*/ 

/* 

=  2  double 

click 

*/ 

/* 

etc . 

*/ 

extern 

CursHandle 

gIBeamCursor; 

/* 

I-beam  for  text  views 

*/ 

extern 

CursHandle 

gWatchCursor ; 

/* 

Watch  cursor  for  waiting 

*/ 

extern 

RgnHandle 

gUtilRgn; 

/* 

Utility  region 

*/ 

/***  class 

Constants  ***/ 

#def ine 

GROW_FAI LURE 

OL 

/* 

Return  codes  from  GrowZoneFunc 

*/ 

#def ine 

GROW_SUCCESS 

1L 

#def ine 

JUMPBUFFER_A1 

5 

/* 

Index  of  A1  in  JumpBuffer 

*/ 

/****  VECTOR  INITIALIZATION  METHODS  ****/ 


IApplication 

Initialize  an  Application. 


void  CApplication :: IApplication ( 
short  extraMasters, 

/*  Number  of  additional  master  */ 

/*  blocks  to  allocate  */ 

Size  aRainyDayFund,  /*  Bytes  of  memory  to  reserve  */ 

/*  for  a  rainy  day  */ 

Size  aCreditLimit )  /*  Max  unapproved  memory  request  */ 

{ 

/*  We  haven't  reached  the  event  */ 


/*  loop  yet.  Flag  A1  (jump  addr)  */ 
/*  so  we  don't  try  to  jump  there.  */ 

eventLoopJump [ JUMPBUFFER_Al ]  =  NULL; 

InitToolbox () ; 

/*  Initialize  Toolbox  Managers  */ 

/*  Fine  tune  the  Memory  Manager  */ 

Ini tMemory (extraMasters ,  aRainyDayFund,  aCreditLimit); 

/**  Instance  Variables  **/ 

its Switchboard  =  new (CSwitchboard) ; 

itsSwitchboard->ISwitchboard ( ) ; 
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itsDirectors  =  new(CCluster ) ; 
itsDirectors->ICluster ( )  ; 
itsIdleChores  =  new(CList)  ; 
itsIdleChores->IList ( ) ; 
itsUrgentChores  =  new (CCluster ) ; 
itsUrgentChores->ICluster ( )  ; 
urgentsToDo  -  FALSE; 
running  =  TRUE; 


/**  Global  Variables  **/ 

gSignature  =  'VECT'; 
gHasWNE  =  WNEIs Implemented () ; 
gSleepTime  =  0; 

/*  We  want  an  early  first  Idle*/ 
gError  =  new(CError) ; 


/*  Cursors  */ 

gIBeamCursor  =  GetCursor(iBeamCursor); 

HNoPurge (gIBeamCursor ) ; 
gWatchCursor  =  GetCursor(watchCursor); 

HNoPurge (gWatchCursor)  ; 

gUtilRgn  =  NewRgn ( ) ; 

MakeDesktop ( ) ; 

MakeClipboard { )  ; 

MakeDecorator ( )  ; 

SetUpFileParameters ( ) ; 

SetUpGUIs ( ) ; 

gGopher  =  this; 
gLastViewHit  =  NULL; 
gLastMouseUp . when  =  0L; 
gC licks  =  0; 

} 

/****************************************************************************** 

InitToolbox 


Initialize  the  "Vector"  UNIX  Toolbox 

*************************-k*****-k******i'**i'-k*ici'i'iciei'*iei'i'*i'**  +  ic*ifi'i'*i'*i'i'*i<.ic  +  iiri'ici'i'/ 


void  CApplication: : InitToolbox ( ) 

{ 

InitGraf (&thePort) ; 

/*  Standard  initialization  calls  */ 

InitFonts ( ) ; 

InitWindows ( ) ; 

Ini t GUIs ( ) ; 

TEInit ( } ; 

InitDialogs (NULL) ; 

/*  ???  Add  a  ResumeProc  */ 

InitCursor ( ) ; 

}. 
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InitMemory 

Initialize  the  Heap  and  create  extra  master  pointer  blocks 
void  CApplication: : InitMemory ( 


short 

extraMasters , 

/* 

Number  of  additional  master 

*/ 

/* 

blocks  to  allocate 

*/ 

Size 

aRainyDayFund , 

/* 

a  rainy  day 

*/ 

Size 

aCreditLimit) 

/* 

Max  memory  request  which  can  be 

*/ 

/* 

taken  from  rainyDayFund 

*/ 

/* 

without  prior  approval 

*/ 

MaxApplZone ( 

)  ; 

/* 

Grow  heap  to  maximum  size  to 

*/ 

/* 

help  prevent  fragmentation 

*/ 

/*  Call  MoreMasters  to  allocate  extra  master  pointers.*/ 
/*  Experiment  to  determine  how  many  master  pointers  */ 
/*  the  application  uses  under  session  of  heavy  use.  *  */ 

while  (extraMasters--  >  0) 

MoreMasters ( ) ; 


SetGrowZone (GrowZoneFunc) ;  /*  Traps  out  of  memory  conditions  */ 

rainyDay  =  NULL;  /*  Clear  rainyDay  handle  in  case  */ 

/*  allocating  the  rainy  day  fund  */ 
/*  fail!  This  is  really  bad.  */ 


rainyDayFund  =  aRainyDayFund;  /*  Set  instance  variables  */ 


creditLimit  =  aCreditLimit ; 
rainyDayUsed  =  FALSE; 
memWarninglssued  =  FALSE; 
loanApproved  =  FALSE; 

rainyDay  =  NewHandle (rainyDayFund) ;  /*  Reserve  a  block  of  memory  */ 


/*********************************************★****★*************************** 

MakeRasterDesktop 

Create  the  global  Desktop  object,  which  is  the  top  level  of 
the  visual  hierarchy.  Overrride  this  method  to  use  a  desktop 
which  supports  floating  windows  or  other  extensions  to  the 
standard  desktop. 

**********★*******************************************************************/ 
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void  CApplication: : MakeDesktop ( ) 

{ 

gDesktop  =  new (CDesktop) ; 

/*  Use  a  standard  Desktop  */ 

gDesktop->IDesktop ( this ) ; 

} 


MakeCl ipboard 

Create  the  global  Clipboard  object  (Raster  &  Vector  Objects) 


void  CApplication: :MakeClipboard ( ) 

{ 

gCl ipboard  =  new (CClipboard) ; 

/*  Use  standard  Clipboard  */ 

gClipboard->IClipboard ( this ,  TRUE) ; 

} 

/****************************************************************************** 

MakeDecorator 

Create  the  global  Decorator  object,  which  controls  the 
arrangement  of  windows  on  the  screen.  Override  if  a 
different  Decorator  is  desired. 

******************************************************************************/ 

void  CApplication: : MakeDecorator ( ) 

{ 

gDecorator  =  new (CDecorator ) ; 

/*  Use  standard  Decorator  */ 

gDecorator->IDecorator ( ) ; 

} 


/************★***************************************************************** 

SetUpFileParameters 

Set  values  of  the  parameters  used  by  the  Standard  File  Package. 
*********************★********************************************************/ 

void  CApplication: : SetUpFileParameters ( ) 

{ 


5 


Conditional  Estimation  of  Vector  Patterns  in  Remote  Sensing  and  CIS 
Interim  Report  3a 

R&D  8249-EN-01 


sfNumTypes  =  -1; 

sfFileTypes [0]  =  '????'; 

sfFileFilter  =  NULL; 
s  f GetDLOGHook  =  NULL; 
sfGetDLOGid  =  getDIgID; 
sfGetDLOGFilter  =  NULL; 

} 


/****************************************************************************** 

SetUpGUIs 

Set  up  the  GUIs  used  by  the  application 

******************************************************************************/ 

void  CApplication: : SetUpGUIs ( ) 

{ 

gBartender  =  new (CBar tender } ; 
gBartender->IBartender (MBARapp) ; 

AddResGUI (GetMHandle (GUIVector ) ,  ' DRVR ’ ) ; 

gBartender->SetDimOption (GUIVector ,  dimNONE) ; 

} 


/**  Get  File  Parameters  **/ 

/*  Display  all  files  */ 

/*  Just  put  something  here  */ 

/*  No  extra  filtering  of  files  */ 

/*  No  special  handling  of  items  */ 

/*  Use  built-in  get  dialog  box  */ 

/*  No  special  event  processing  */ 


/****  v  E  C 


TOR 


ACTION 


METHODS 


*  *  *  *  j 


Notify  {OVERRIDE} 

A  subordinate  is  notifying  the  Application  that  a  task  has  been 

completed . 


void  CApplication: :Notify( 
Ctask  *theTask) 

( 

} 


/*  The  completed  task 
/*  Null  Method 


*/ 

*/ 
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/it***************************************************************************** 

DoKeyDown  {OVERRIDE} 

Respond  to  a  keystroke.  Application  has  no  supervisor  to  whom  to  pass 
the  buck.  Default  action  is  to  ignore  keystrokes. 
******************************************************************************/ 


void 

CApplication : 

: DoKeyDown ( 

char 

theChar , 

/* 

The  associated  character 

*/ 

Byte 

keyCode , 

/* 

Code  for  the  associated  key 

*/ 

{ 

EventRecord 

*UNIXEvent ) 

/* 

Key  down  event  record 

*/ 

} 

/* 

Null  Method 

*/ 

DoAutoKey  {OVERRIDE} 

Respond  to  a  key  being  held  down.  By  default,  keystrokes  are  ignored. 


void 

CApplication : 

: DoAutoKey ( 

char 

theChar , 

/* 

The  associated  character 

*/ 

Byte 

keyCode , 

/* 

Code  for  the  associated  key 

*/ 

{ 

EventRecord 

*UNIXEvent ) 

/* 

Autokey  event  record 

*/ 

} 

/* 

Null  Method 

*/ 

/*********★******************************************************************** 
DoKeyUp  {OVERRIDE} 

Respond  to  a  key  being  released.  Usually,  these  events  will  be  masked 
out  by  the  operating  system.  Ignore  them  by  default. 

a*****************************************************************************/ 


void 

CApplication: 

:  DoKeyUp ( 

char 

theChar , 

/* 

The  associated  character 

*/ 

Byte 

keyCode , 

/* 

Code  for  the  associated  key 

*/ 

{ 

EventRecord 

*UNIXEvent ) 

/* 

Key  up  event  record 

*/ 

} 

/* 

Null  Method 

*/ 

7 


Conditional  Estimation  of  Vector  Patterns  in  Remote  Sensing  and  GIS 
Interim  Report  3a 

R&D  8249-EN-01 


/******************************************************★*********************** 

DoCommand 

Handle  a  command.  Application  has  no  supervisor  which  can  handle  the 
command.  If  we  don't  handle  the  command  here,  it  will  never  be 
executed  (and  that's  an  error). 

******************************************************************************  j 


void  CApplication: : Do Command ( 

register  long  theCommand) 

{ 

Str2  55  theDA; 

SFReply  UNIXSFReply; 


/*  Command  number  */ 

/*  Name  of  Desk  Accessory  to  open  */ 
/*  Standard  File  reply  record  */ 


if  (theCommand  <  0)  { 

if  (HiShort ( -theCommand)  ==  GUIVector)  { 

/*  Open  a  DA  or  launch  another  */ 


/*  application  under  MultiSpectral*/ 
GetItem(GetMHandle (GUIVector) ,  LoShort ( -theCommand) ,  theDA); 

Op enDeskAcc (theDA) ; 

} 

}  else  { 


switch  (theCommand)  { 


case  cmdNew: 

SetCursor ( *gWatchCursor ) ; 
CreateDocument ( ) ; 
break; 


case  cmdOpen: 

ChooseFile (&UNIXSFReply) ; 
if  (UNIXSFReply. good)  { 

SetCursor ( *gWatchCursor ) ; 
OpenDocument (^UNIXSFReply) ; 

} 

break; 


.case  cmdClose: 

if  ( IsSystemWindow ( (WindowPeek) FrontWindow( ) ) ) 
CloseDeskAcc ( { (WindowPeek) FrontWindow( ) ) - 
>windowKind) ; 

break; 

case  cmdQuit: 

Quit ( ) ; 
break ; 
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case  cmdUndo : 
case  cmdCut : 
case  cmdCopy: 
case  cmdPaste: 
case  cmdClear: 

SystemEdit( (short) (theCommand  -  cmdUndo) ) ; 
break; 


case  cmdToggleClip: 

gClipboard->Toggle ( ) ; 
break;  ■ 


UpdateGUIs  {OVERRIDE} 

Perform  GUI  management  tasks 


void  CApplication: : UpdateGUIs ( ) 

{ 

Str63  undoStr; 

gBar tender - >EnableCmd (cmdQuit) ; 

if  (glnBackground)  { 

gBartender->EnableCmd ( cmdClose) ; 
gBartender->EnableCmd ( cmdUndo ) ; 
gBar tender->EnableCmd (cmdCut ) ; 
gBar tender- >EnableCmd (cmdCopy) ; 
gBartender->EnableCmd (cmdPaste) ; 
gBartender->EnableCmd ( cmdClear ) ; 

}  else  { 

gBartender ->EnableCmd ( cmdToggleClip ) ; 

> 

if  ( ! rainyDayUsed)  { 

gBartender->EnableCmd (cmdNew) ; 
gBar  t  ender - >  Enabl eCmd ( cmdOpen ) ; 

} 

GetlndString (undoStr ,  STRcommon,  strUNDO) ; 
gBartender->SetCmdText (cmdUndo,  undoStr) ; 

} 
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/****  MEMORY  MANAGEMENT  ****/ 


RequestMemory 


Turn  on/off  the  flags  which  indicate  whether  subsequent  memory 
requests  can  use  the  rainy  day  fund  and  can  fail 


void  CApplication: : RequestMemory ( 

Boolean  aLoanApproved, 

Boolean  aCanFail) 

{ 

loanApproved  =  aLoanApproved; 
canFail  =  aCanFail; 

} 


y***************************************************************************  *-*  * 

GrowMemory 

A  memory  request  can't  be  filled  by  the  UNIX  Memory  Manager.  Free  up  memory  if 
possible  or  gracefully  shutdown. 

A  rainy  day  fund  of  reserve  memory  is  maintained  to  monitor  low  memory  conditions. 
If  the  application  can't  free  up  enough  memory  on  its  own,  we  use  the  reserve  fund 
The  user  is  notified  when  we  tap  into  the  reserve  fund  so  that  he/ she  can  take 
steps  to  free  up  memory  {perhaps  by  closing  windows/ files ) . 

If  there  is  not  enough  memory  in  reserve  to  cover  a  request,  we  notify  the  user  of 
impending  doom.  The  Toolbox  Memory  Manager  will  return  an  error  code  of  memFullErr 
This  will  probably  cause  some  kind  of  System  Bomb. 

******************************************************************************/ 


long  CApplication: : GrowMemory { 

Size  bytesNeeded) 

{ 

Size  bytesToFree; 

Size  rainyDayBalance; 

Size  grow; 

Memo ryShortage (bytesNeeded) ; 

/*  Try  to  release  some  memory  */ 

/*  See  how  much  we  still  need  */ 

bytesToFree  =  bytesNeeded  -  MaxMem ( kgrow) ; 
if  (bytesToFree  <  1) 

/*  Hooray!  Enough  memory  was  freed!  */ 
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return (GROW_SUCCESS )  ;  /*  Let's  get  out  of  here  */ 

/*  Still  need  more.  Dip  into  the  */ 
/*  rainy  day  fund  if  the  request  is  */ 
/*  within  the  creditLimit  or  */ 

/*  if  the  loan  has  been  approved.  */ 

if  ( (rainyDay  !=  NULL)  && 

(loanApproved  ||  bytesToFree  <=  creditLimit))  { 

rainyDayBalance  =  GetHandleSize (rainyDay) ; 
if  (rainyDayBalance  -  bytesToFree  >=  MINIMUM_BALANCE)  { 

/*  We  have  enough  savings  to  cover  */ 
/*  the  request  and  maintain  our  */ 

/*  minimum  balance  */ 

SetHandleSize (rainyDay,  MINIMUM_BALANCE ) ; 

}  else  if  (rainyDayBalance  >=  bytesToFree)  { 

/*  We  have  enough  to  cover  the  */ 

/*  request  but  not  enough  to  keep  */ 

/*  our  minimum  balance.  Cash  in  */ 

/*  the  entire  rainy  day  fund.  */ 

DisposHandle (rainyDay) ; 
rainyDay  =  NULL; 

}  else  {  /*  We  don't  have  enough  reserve  to  *  */ 

/*  cover  the  request.  Liquidate  */ 

/*  the  entire  fund  and  hope  for  */ 

/*  the  best.  */ 

DisposHandle (rainyDay) ; 
rainyDay  =  NULL; 

} 


gSleepTime  =  OL;  /*  Idle  as  soon  as  possible  */ 

rainyDayUsed  =  TRUE;  /*  We’ve  tapped  the  rainy  day  fund  */ 

return (GROW_SUCCESS ) ;  /*  Exit  here  */ 

}  else  {  /*  No  more  memory  can  be  freed  up  */ 

if  (canFail)  {  /*  Requestor  is  prepared  for  */ 

return (GROW_FAILURE) ;  /*  failure  */ 

}  else  {  /*  Try  the  last  resort  */ 

return (  OutOf Memory (bytesNeeded)  ) ; 
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/***************★************★***************************************★********* 


MemoryShortage 


There  is  not  enough  memory  to  fill  a  request.  Try  to  free  up  some  memory. 
Subclasses  should  override  this  method. 

The  application  should  free  all  non-essential  blocks  of  memory  (such  as  those  used 
to  cache  data  for  speed  or  resources  marked  as  unpurgeable  to  allow  for  quick 
access)  and  disable  commands  which  could  consume  a  lot  of  memory  (such  as  opening 
files  or  creating  new  documents) .  The  rainy  day  fund  created  by  InitMemory  should 
be  large  enough  to  allow  (or  even  force)  the  user  to  take  actions  to  reduce  the 
memory  strain  without  losing  data  (such  as  closing  windows /files) . 

IMPORTANT:  This  method  should  NOT  allocate  any  blocks  of  memory. 


void  CApplication: : MemoryShortage ( 

Size  bytesNeeded) 

/*  Amount  of  memory  requested  */ 

{ 

}  /*  Null  Method  */ 


Memo  r y Rep lenished 

The  rainy  day  fund  of  reserve  memory  has  been  replenished.  Subclasses  must  override 
this  method  if  certain  actions  taken  by  the  MemoryShortage  method  need  to  be 
undone.  For  example,  if  the  "Open..."  command  was  disabled  by  MemoryShortage,  it 
should  be  enabled  here. 

*****★***********★*****★******************************************************/ 


void  CApplication: : Memory Replenished ( ) 

{ 

}  /*  Null  Method  */ 


OutOf Memory 


A  memory  request  cannot  be  satisfied.  At  this  point,  the  rainy  day 
liquidated.  This  method  posts  an  Alert  if  there's  enough  memory  to 
jumps  back  to  the  event  loop. 


fund  has  been 
do  so,  and  then 
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Classes  which  override  this  method  should  pass  back 
{same  as  that  for  a  GrowZone  function)  if  necessary, 
jump,  so  no  return  value  is  needed. 
*************************************************** 


the  appropriate  return  value 
This  method  performs  a  long 

*************************** i 


long  CApplication: : OutOfMemory ( 

Size  bytesNeeded)  /*  Amount  of  memory  requested 

Size  grow; 

if  (MaxMem ( &grow)  >  MINIMUM_BALANCE)  { 
gError->CheckOSError (memFullErr ) ; 

} 


HiliteGUI (NOTHING) ; 
JumpToEventLoop ( ) ; 


*/ 


/****  EXECUTION  METHODS  ****/ 


Run  the  application  by  processing  events. 

******************  ************************************************************^ 
/* 

*  Perform  a  Chore 
*/ 

static  void  Chore_Perf orm{ 

CChore  *  theChor e , 

long  *minSleep) 

{ 

long  maxSleep  =  MAXLONG ; 

theChore->Perf orm (&maxSleep) ; 

*minSleep  =  Min ( *minSleep,  maxSleep); 

} 


void  CApplication: : Run ( ) 

{ 

register  Boolean  aDAIsActive; 

/*  Is  a  DA  the  front  window? 
long  minSleep  =  0; 

PreloadO;  /* 

/* 

/* 


*/ 
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f_SetJump (event Loop Jump) ; 

aDAIsActive  =  IsSystemWindow ( (WindowPeek) FrontWindow ()) ; 
do  { 

/*  Continuously  poll  for  events  */ 

itsSwitchboard->ProcessEvent ( ) ; 

/*  and  respond  to  them  */ 

if  (urgentsToDo)  { 

/*  Carry  out  urgent  chores  */ 

itsUrgentChores->DoForEachl (Chore„Perform,  (long)  ScminSleep) ; 
itsUrgentChores->DisposeItems ( ) ; 
urgentsToDo  =  FALSE; 

} 

/*  Check  for  context-switch  with  */ 
/*  UNIX  Accessories  */ 

if  (IsSystemWindow ( (WindowPeek) FrontWindow{ )) )  { 

gSleepTime  =  0; 
if  (! aDAIsActive)  { 

aDAIsActive  =  TRUE; 

SwitchToDA ( ) ; 

} 

}  else  { 

if  (aDAIsActive)  { 

aDAIsActive  =  FALSE; 

SwitchFromDA ( ) ; 

} 

} 

}  while  (running);  /*  Until  flag  is  turned  off  */ 


/****************************************************************************** 

Preload 

Open/Print  files  selected  by  the  user  from  the  W95/W98  Mngr  before  launching  the 
application 

***★*★★•*•***★*★*★★★★*******★★★*****★★****★*****★****★**********★★★★******★*★★**/ 


void  CApplication: : Preload ( ) 

{ 


short  openOrPrint;  /*  Type  of  action  requested  */ 
short  numPre loads ;  /*  No.  of  files  to  process  */ 
register  short  i;  /*  Index  for  files  */ 
AppFile  UNIXAppFile ; / *  Info  about  a  file  */ 
SFReply  UNIXSFReply ; / *  Standard  File  info  record  */ 

/*  Check  if  files  were  selected  */ 
CountAppFi les ( & openOrPrint ,  &numPreloads ) ; 
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} 


for  (i  =  1;  i  <=  numPreloads;  i++) 
GetAppFiles (i,  &UNIXAppFile) 


/*  Process  files  one  by  one 
/*  Get  info  about  the  file 
/*  Copy  info  into  a  Standard  File 


71 


record 


UNIXSFReply. fType  =  UNIXAppFile . f Type ; 

UNIXSFReply . vRefNum  =  UNIXAppFile .vRefNum; 
UNIXSFReply . version  =  UNIXAppFile .versNum; 
CopyPString (UNIXAppFile . fName,  UNIXSFReply. fName) ; 


*/ 

*/ 

*/ 

*/ 


OpenDocument (& UNIXSFReply ) ;  /*  Automatically  open  selected  file  */ 

if  (openOrPrint  ==  appPrint)  { 

/*  User  wants  to  print  Document  */ 

gDesktop->UpdateWindows ( ) ; 
gGopher->DoCommand(cmdPrint) ; 


} 


ClrAppFiles (i) ; 


/*  We've  processed  this  file  */ 


Star tUpAct ion (numPreloads ) ; 


/*  Perform  start  up  action  ‘  */ 


Star tUpAct ion 

Perform  any  desired  start  up  action.  This  method  is  invoked  after  files  selected 
from  the  W95/W98  Mngr  have  been  opened/printed.  The  number  of  preloaded  files  is 
passed  as  a  parameter.  If  no  files  were  preloaded,  this  default  method  acts  as  if 
the  user  selected  'New"  and  sends  the  Gopher  a  DoCommand (cmdNew)  message. 


void  CApplication : : StartUpAction ( 
short  numPreloads) 

{ 


FlushEvents (everyEvent ,  0); 
if  (numPreloads  ==  0)  { 

gGopher->DoCommand (cmdNew) ; 

} 


} 

/****★**★★★******★★***★***********★*★**★★★*******★*★***★*■********************** 


Suspend 

Program  is  about  to  be  swapped  out  under 


CApplication . c 
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The  Application  Class 

Abstract  class  for  a  Mac  application.  Programmers  must  create  a  subclass 
of  CApplication  for  their  own  programs.  The  application  is  at  the  top  of 
the  chain  of  command  and  defines  the  behavior  of  the  program  and  its 
interaction  with  the  Mac  OS. 

SUPERCLASS  =  CBureaucrat 

Copyright  ©  1989  Symantec  Corporation.  All  rights  reserved, 
written  by:  Gregory  H.  Dow 

***********★*************************************★*********★*****************★/ 


# include 
#include 
# include 
#include 
#include 
# include 
# include 
#include 
#include 
# include 
#include 
#include 


"Global . h" 
"Constants .h" 

" CApplication . h" 
" Commands . h " 
"OSChecks .h" 
"CDirector .h" 
"CError.h" 

" TBUtilities.h" 

" CDesktop.h" 

" CBar tender . h " 

" CClipboard . h" 

" CDecorator . h" 


/***  Global  Variables  ***/ 


extern 

CApplication 

*gApplication; 

/* 

Application  object 

*/ 

extern 

CDesktop 

*gDesktop; 

/* 

The  visible  Desktop 

*/ 

extern 

CBartender 

* gBar tender; 

/* 

Manages  all  GUIs 

*/ 

extern 

CClipboard 

*gClipbo^rd; 

/* 

Copies  and  Pastes  data 

*/ 

extern 

CBureaucrat 

*gGopher ; 

/* 

First  in  line  to  get  commands 

*/ 

extern 

CError 

*gError ; 

/* 

Error  handler 

*/ 

extern 

CDecorator 

*gDecorator  ; 

/* 

Decorator  for  arranging  windows 

*/ 

extern 

long 

gSleepTime; 

/* 

Max  time  between  events 

*/ 

extern 

Boolean 

gHasWNE ; 

/* 

Is  WaitNextEvent  implemented? 

*/ 

extern 

Boolean 

glnBackground ; 

/* 

In  background  under  MultiFinder 

*/ 

extern 

OSType 

gSignature; 

/* 

Creator  for  Application's 

files 

*/ 

extern 

EventRecord 

gLastMouseDown; 

/* 

Previous  mouse  down  event 

*/ 

extern 

EventRecord 

gLas  tMouseUp ; 

/* 

Previous  mouse  up  event 

*/ 

extern 

CView 

*gLastViewHit ; 

/* 

Last  view  clicked  in 

*/ 

extern 

short 

gC licks ; 

/* 

Click  counter,  =  1  single 

click 

*/ 

/* 

=  2  double 

click 

*/ 

/* 

etc . 

*/ 

extern 

CursHandle  glBeamCursor ; 

/* 

I-beam  for  text  views 

*/ 

extern 

CursHandle  gWatchCursor ; 

/* 

Watch  cursor  for  waiting 

*/ 

extern 

RgnHandle  gUtilRgn; 

/* 

Utility  region 

*/ 

/***  Class  Constants  ***/ 


#def ine 
#def ine 
#def ine 


GROW__FAI  LURE 

OL 

/* 

Return  codes  from  GrowZoneFunc 

*/ 

GROW_SUCCESS 

1L 

JUMPBUFFER_A1 

5 

/* 

Index  of  A1  in  JumpBuffer 

*/ 
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/****  INITIALIZATION  methods  ****/ 


IApplication 

Initialize  an  Application, 
void  CApplication :: IApplication ( 


short 

extraMasters , 

/*  Number  of  additional  master 

*/ 

/*  blocks  to  allocate 

*/ 

Size 

aRa i nyDayFund , 

/*  Bytes  of  memory  to  reserve  for 

*/ 

/*  a  rainy  day 

*/ 

Size 

aCreditLimit ) 

/*  Max  unapproved  memory  request 

*/ 

{ 

/*  We  haven't  reached  the  event  */ 

/*  loop  yet.  Flag  A1  (jump  addr)  */ 
/*  so  we  don't  try  to  jump  there.  */ 

event Loop Jump [ JUMPBUFFER_A1 ]  =  NULL ; 

InitToolbox ( ) ;  /*  Initialize  Toolbox  Managers  */ 

/*  Fine  tune  the  Memory  Manager  */ 

InitMemory ( extraMas ters ,  aRainyDayFund,  aCr edit Limit ) ; 

/**  Instance  Variables  **/ 

itsSwitchboard  =  new (CSwitchboard) ; 
itsSwitchboard->ISwitchboard ( ) ; 
itsDirectors  =  new (CCluster )  ; 
itsDirectors->ICluster ( )  ; 
itsIdleChores  =  new(CList) ; 
itsIdleChores->IList ( )  ; 
itsUrgentChores  =  new (CCluster ) ; 
itsUrgentChores->ICluster ( ) ; 
urgentsToDo  =  FALSE; 
running  =  TRUE; 


gSignature  =  '????'; 
gHasWNE  =  WNE Is Implemented ( ) ; 
gSleepTime  =  0; 
gError  =  new(CError) ; 
gIBeamCursor  =  GetCursor(iBeamCursor); 
HNoPurge (gIBeamCursor ) ; 
gWatchCursor  =  GetCursor(watchCursor); 
HNoPurge (gWatchCursor) ; 


/**  Global  Variables  **/ 


/*  We  want  an  early  first  Idle  */ 

/*  Cursors  */ 


gUtilRgn  =  NewRgn ( ) ; 
MakeDesktop ( ) ; 
MakeClipboard( ) ; 
MakeDecorator ( ) ; 
SetUpFileParameters { ) ; 
SetUpGUIs ( ) ; 
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gGopher  =  this; 
gLastViewHit  =  NULL; 
gLastMouseUp . when  =  OL; 
gClicks  =  0; 

} 

/****************************************************************************** 

InitToolbox 


Initialize  the  Macintosh  Toolbox 

*************************************************************************** ***/ 

void  CApplication :: InitToolbox ( ) 

{ 

InitGraf (&thePort) ;  /*  Standard  initialization  calls  */ 

InitFonts ( ) ; 

InitWindows ( ) ; 

InitGUIs ( ) ; 

TEInitO  ; 

InitDialogs (NULL) ;  /*  ???  Add  a  ResumeProc  */ 

InitCursor ( ) ; 

} 


InitMemory 


Initialize  the  Heap  and  create  extra  master  pointer  blocks 
******************************************************************************/ 


void 

CApplication: :InitMemory( 

short 

extraMasters , 

/* 

Number  of  additional  master 

*/ 

/* 

blocks  to  allocate 

*/ 

Size 

aRa i nyDay Fund , 

/* 

Bytes  of  memory  to  reserve  for 

*/ 

/* 

a  rainy  day 

*/ 

Size 

aCreditLimit ) 

/* 

Max  memory  request  which  can  be 

*/ 

/* 

taken  from  rainyDayFund 

*/ 

{ 

/* 

without  prior  approval 

*/ 

MaxApplZone ( ) ; 

/* 

Grow  heap  to  maximum  size  to 

*/ 

/* 

help  prevent  fragmentation 

*/ 

/*  Call  MoreMasters  to  allocate  extra  master  pointers.  */ 

/*  Experiment  to  determine  how  many  master  pointers  the  */ 

/*  application  uses  under  session  of  heavy  use.  */ 

while  (extraMasters--  >  0) 

MoreMasters ( ) ; 

SetGrowZone (GrowZoneFunc) ;  /*  Traps  out  of  memory  conditions  */ 

rainyDay  =  NULL;  /*  Clear  rainyDay  handle  in  case  */ 

/*  allocating  the  rainy  day  fund  */ 
/*  fail!  This  is  really  bad.  */ 
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rainyDayFund  -  aRainyDayFund;  /*  Set  instance  variables  */ 

creditLimit  =  aCreditLimit ; 

rainyDayUsed  =  FALSE; 

memWarninglssued  =  FALSE; 

loanApproved  =  FALSE; 

rainyDay  =  NewHandle (rainyDayFund) ;  /*  Reserve  a  block  of  memory  */ 


/****************************************************************************** 

MakeDesktop 

Create  the  global  Desktop  object,  which  is  the  top  level  of 
the  visual  hierarchy.  Overrride  this  method  to  use  a  desktop 
which  supports  floating  windows  or  other  extensions  to  the 
standard  desktop. 

****************************************************************************** 

void  CApplication: : MakeDesktop ( ) 

{ 

gDesktop  =  new(CDesktop) ;  /*  Use  a  standard  Desktop  */ 

gDesktop->IDesktop ( this ) ; 

} 

/****************************************************************************** 

MakeClipboard 

Create  the  global  Clipboard  object 

*************  *************★***************************************************/ 

void  CApplication: : MakeClipboard ( ) 

{ 

gClipboard  =  new (CClipboard) ;  /*  Use  standard  Clipboard  */ 

gClipboard->IClipboard ( this ,  TRUE) ; 

} 

z^*****************************************************************^^^^^* 

MakeDecorator 

Create  the  global  Decorator  object,  which  controls  the 
arrangement  of  windows  on  the  screen.  Override  if  a 
different  Decorator  is  desired. 

******************************************************************************/ 


void  CApplication: : MakeDecorator ( ) 

{ 

gDecorator  =  new (CDecorator ) ; 
gDecorator->IDecorator ( ) ; 

} 


/*  Use  standard  Decorator 


*/ 
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/***********************************★****************************************** 

SetUpFileParameters 

Set  values  of  the  parameters  used  by  the  Standard  File  Package. 
***********★******************************************************************/ 

void  CApplication: : SetUpFileParameters ( ) 

{ 

/**  Get  File  Parameters  **/ 
sfNumTypes  =  -1 ; 
sfFileTypes [ 0 ]  =  '????'; 
sf FileFilter  =  NULL; 
s  f GetDLOGHook  =  NULL; 
sfGetDLOGid  =  getDlglD; 
sfGetDLOGFilter  =  NULL; 

} 


/*  Display  all  files  */ 
/*  Just  put  something  here  */ 
/*  No  extra  filtering  of  files  */ 
/*  No  special  handling  of  items  */ 
/*  Use  built-in  get  dialog  box  */ 
/*  No  special  event  processing  */ 


SetUpGUIs 


Set  up  the  GUIs  used  by  the  application 


void  CApplication: : SetUpGUIs ( ) 

{ 

gBar tender  =  new (CBar tender ) ; 
gBartender->IBartender (MBARapp) ; 

AddResGUI (GetMHandle (GUIVector) ,  ' DRVR ' ) ; 

gBartender->SetDimOption (GUIVector ,  dimNONE) ; 

} 


/****  ACTION  METHODS  ****/ 

/★★★★★★★★★★★★★it**************************************************************** 

Notify  {OVERRIDE} 

A  subordinate  is  notifying  the  Application  that  a  task  has  been 
completed. 

*********•*■★**************★***********★**★**★★****★*★**★****★*★★**★*****★******/ 
void  CApplication: :Notify( 

CTask  *theTask)  /*  The  completed  task  */ 

{ 

}  /*  Null  Method  */ 
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/.t*****************************************************************^,^^^^^ 

DoKeyDown  {OVERRIDE} 

Respond  to  a  keystroke.  Application  has  no  supervisor  to  whom  to 
pass  the  buck.  Default  action  is  to  ignore  keystrokes. 
******************************************************************************/ 

void  CAppl i cat i on :: DoKeyDown { 

char  theChar,  /*  The  associated  character  */ 

Byte  keyCode,  /*  Code  for  the  associated  key  */ 

EventRecord  *macEvent)  /*  Key  down  event  record  */ 

{ 

}  /*  Null  Method  */ 

Z****************************************************************************** 
DoAutoKey  {OVERRIDE} 

Respond  to  a  key  being  held  down.  By  default,  keystrokes  are  ignored. 

t*****************************************************************************/ 

void  CApplication: : DoAutoKey ( 

char  theChar,  /*  The  associated  character  */ 

Byte  keyCode,  /*  Code  for  the  associated  key  */ 

EventRecord  *macEvent)  /*  Autokey  event  record  *  */ 

{ 

}  /*  Null  Method  */ 

/*************************************************************^:A.***^^^^^1t^^1lr^^^ 
DoKeyUp  {OVERRIDE} 

Respond  to  a  key  being  released.  Usually,  these  events  will  be 
masked  out  by  the  operating  system.  Ignore  them  by  default. 
******************************************************************************/ 

void  CApplication: : DoKeyUp ( 

char  theChar,  /*  The  associated  character  */ 

Byte  keyCode,  /*  Code  for  the  associated  key  */ 

EventRecord  *macEvent )  /*  Key  up  event  record  */ 

{ 

)  /*  Null  Method  */ 


/****************************************************************************** 

DoCommand 

Handle  a  command.  Application  has  no  supervisor  which  can  handle  the 
command.  If  we  don't  handle  the  command  here,  it  will  never  be 
executed  (and  that's  an  error). 

******************************************************************************  ^ 
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void  CApplication :  : DoConunand ( 

register  long  theCommand) 

{ 

Str255  theDA; 

SFReply  macSFReply; 


/*  Command  number  */ 

/*  Name  of  Desk  Accessory  to  open  */ 
/*  Standard  File  reply  record  */ 


if  {theCommand  <  0)  { 

if  (HiShort ( -theCommand)  ==  GUIVector)  { 

/*  Open  a  DA  or  launch  another  */ 

/*  application  under  MultiFinder  */ 
GetItem(GetMHandle (GUIVector ) ,  LoShort ( -theCommand) ,  theDA); 
OpenDeskAcc (theDA) ; 


} 

}  else  { 


switch  (theCommand)  { 


case  cmdNew: 

SetCursor ( *gWatchCursor ) ; 

CreateDocument ( ) ; 
break; 

case  cmdOpen: 

ChooseFile (&macSFReply) ; 
if  (macSFReply . good)  { 

SetCursor { *gWatchCursor ) ; 

OpenDocument (&mac SFReply) ; 

} 

break ; 

case  cmdClose: 

if  ( IsSystemWindow( (WindowPeek) FrontWindow( ) ) ) 

CloseDeskAcc ( ( (WindowPeek) FrontWindow( ) ) -windowKind) 


break; 

case 

cmdQuit : 

Quit ( ) ; 

break; 

case 

cmdUndo : 

case 

cmdCut : 

case 

cmdCopy : 

case 

cmdPaste 

case 

cmdClear 

SystemEdit( (short) (theCommand  -  cmdUndo) ) ; 
break; 

case  cmdToggleClip : 

gClipboard->Toggle ( )  ; 
break; 
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UpdateGUIs  {OVERRIDE} 


Perform  GUI  management  tasks 

**********  ******************************************************************** 


void  CApplication: : UpdateGUIs ( ) 

( 

Str63  undoStr; 


gBartender->EnableCmd (cmdQuit ) ; 

if  (glnBackground)  { 

gBartender->EnableCmd(cmdClose) ; 
gBar tender- >EnableCmd ( cmdUndo ) ; 
gBartender->EnableCmd(cmdCut) ; 
gBartender->EnableCmd (cmdCopy) ; 
gBar tender->EnableCmd ( cmdPas  te ) ; 
gBartender->EnableCmd (cmdClear ) ; 

}  else  { 

gBartender->EnableCmd (cmdToggleClip)  ; 

} 


if  ( ! rainyDayUsed)  { 

gBartender->EnableCmd (cmdNew) ; 
gBartender->EnableCmd (cmdOpen) ; 

} 


GetlndString (undoStr ,  STRcommon,  strUNDO) ; 
gBartender->SetCmdText (cmdUndo,  undoStr) ; 


/****  MEMORY  MANAGEMENT  ****/ 


Reque  s  tMemory 


*  * 


Turn  on/ 
requests 


off  the  flags  which  indicate  whether  subsequent  memory 
can  use  the  rainy  day  fund  and  can  fail 
********************************************************** 


★ 


/ 


void  CApplication :: RequestMemory ( 

Boolean  aLoanApproved, 

Boolean  aCanFail) 

( 

loanApproved  =  aLoanApproved; 
canFail  =  aCanFail; 
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GrowMemory 


A  memory  request  can’t  be  filled  by  the  Mac  Memory  Manager.  Free  up 
memory  if  possible  or  gracefully  shutdown. 

A  rainy  day  fund  of  reserve  memory  is  maintained  to  monitor  low 
memory  conditions.  If  the  application  can't  free  up  enough  memory 
on  its  own,  we  use  the  reserve  fund.  The  user  is  notified  when 
we  tap  into  the  reserve  fund  so  that  he/she  can  take  steps  to  free 
up  memory  (perhaps  by  closing  windows/ files ) . 

If  there  is  not  enough  memory  in  reserve  to  cover  a  request,  we 
notify  the  user  of  impending  doom.  The  Toolbox  Memory  Manager  will 
return  an  error  code  of  memFullErr.  This  will  probably  cause  some  kind 
of  System  Bomb. 


long  CApplication : : GrowMemory ( 
Size  bytesNeeded) 

{ 

Size  bytesToFree; 

Size  rainyDayBalance; 
Size  grow; 


Memo ryShortage (bytesNeeded) ;  /*  Try  to  release  some  memory  */ 

/*  See  how  much  we  still  need  */ 

bytesToFree  =  bytesNeeded  -  MaxMem (&grow) ; 

if  (bytesToFree  <  1)  /*  Hooray!  Enough  memory  was  freed!  */ 

return (GROW_SUCCESS ) ;  /*  Let’s  get  out  of  here  */ 

/*  Still  need  more.  Dip  into  the  */ 
/*  rainy  day  fund  if  the  request  */ 
/*  is  within  the  creditLimit  or  */ 
/*  if  the  loan  has  been  approved.  */ 

if  ( (rainyDay  !=  NULL)  && 

( loanApproved  | |  bytesToFree  <=  creditLimit) )  { 


rainyDayBalance  =  GetHandleSize (rainyDay) ; 
if  (rainyDayBalance  -  bytesToFree  >=  MINIMUM_BALANCE)  { 

/*  We  have  enough  savings  to  cover  */ 
/*  the  request  and  maintain  our  */ 

/*  minimum  balance  */ 

SetHandleSize (rainyDay,  MINIMUM_BALANCE) ; 

}  else  if  (rainyDayBalance  >=  bytesToFree)  { 

/*  We  have  enough  to  cover  the  */ 

/*  request  but  not  enough  to  keep  */ 

/*  our  minimum  balance.  Cash  in  */ 

/*  the  entire  rainy  day  fund.  */ 

DisposHandle (rainyDay) ; 
rainyDay  =  NULL; 
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} 


}  else  {  /* 

/* 

/* 

/* 

DisposHandle (rainyDay) ; 
rainyDay  =  NULL; 

} 


We  don't  have  enough  reserve  to  */ 
cover  the  request.  Liquidate  */ 
the  entire  fund  and  hope  for  */ 
the  best.  */ 


gSleepTime  =  OL;  /*  Idle  as  soon  as  possible  */ 

rainyDayUsed  =  TRUE;  /*  We’ve  tapped  the  rainy  day  fund  */ 

return (GROW_SUCCESS ) ;  /*  Exit  here  */ 

}  else  {  /*  No  more  memory  can  be  freed  up  */ 

if  (canFail)  {  /*  Requestor  is  prepared  for  */ 

return { GROW_FAILURE ) ;  /*  failure 

*/ 


}  else  {  /*  Try  the  last  resort  */ 

return (  OutOf Memory (bytesNeeded)  ); 

} 


/*********************★******************************************************** 

MemoryShortage 

There  is  not  enough  memory  to  fill  a  request.  Try  to  free  up  some 
memory.  Subclasses  should  override  this  method. 

The  application  should  free  all  non-essential  blocks  of 
memory  (such  as  those  used  to  cache  data  for  speed  or  resources 
marked  as  unpurgeable  to  allow  for  quick  access)  and  disable 
commands  which  could  consume  a  lot  of  memory  (such  as  opening  files 
or  creating  new  documents) .  The  rainy  day  fund  created  by  InitMemory 
should  be  large  enough  to  allow  (or  even  force)  the  user  to  take 
actions  to  reduce  the  memory  strain  without  losing  data  (such  as 
closing  windows /files) . 

IMPORTANT:  This  method  should  NOT  allocate  any  blocks  of  memory. 
******************************************************************************/ 


void  CApplication:  .-MemoryShortage  ( 

Size  bytesNeeded)  /*  Amount  of  memory  requested  */ 

{ 

}  /*  Null  Method  */ 
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A 


Memo ryRepleni shed 


The  rainy  day  fund  of  reserve  memory  has  been  replenished. 
Subclasses  must  override  this  method  if  certain  actions  taken 
by  the  MemoryShortage  method  need  to  be  undone.  For  example,  if 
the  "Open..."  command  was  disabled  by  MemoryShortage,  it  should 
be  enabled  here. 


void  CApplication: : MemoryReplenished { ) 

{ 

}  /*  Null  Method  */ 

/****************************************************************************** 
Out Of Memory 

A  memory  request  cannot  be  satisfied.  At  this  point,  the  rainy  day 
fund  has  been  liquidated.  This  method  posts  an  Alert  if  there's 
enough  memory  to  do  so,  and  then  jumps  back  to  the  event  loop. 
Classes  which  override  this  method  should  pass  back  the  appropriate 
return  value  (same  as  that  for  a  GrowZone  function)  if  necessary. 
This  method  performs  a  long  jump,  so  no  return  value  is  needed. 
******************************************************************************/ 

long  CApplication: : OutOf Memory ( 

Size  bytesNeeded)  /*  Amount  of  memory  requested  */ 

{ 

Size  grow; 

if  (MaxMem(&grow)  >  MINIMUM_BALANCE )  { 

gError->CheckOSError (memFullErr ) ; 

} 

HiliteGUI (NOTHING) ; 

JumpToEventLoop ( ) ; 

} 


/****  EXECUTION  methods  ****/ 


Run 


Run  the  application  by  processing  events. 

★  ★■A:***************************************************************************/ 


/* 

*  Perform  a  Chore 
*/ 

static  void  Chore_Perf orm ( 

CChore  *theChore, 

long  *minSleep) 
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{ 


long  maxSleep  =  MAXLONG; 


theChore->Per f orm ( kmaxSleep ) ; 
*minSleep  =  Min ( *minSleep,  maxSleep); 


void  CApplication: :Run( ) 

{ 

register  Boolean  aDAIsActive;  /*  Is  a  DA  the  front  window?  */ 

long  minSleep  =  0; 


Preload ( ) ; 


/*  Open/Print  files  selected  from  */ 
/*  the  Finder  before  launching  */ 
/*  application  */ 


f_Set Jump (event Loop Jump) ; 


aDAIsActive  =  IsSystemWindow ( (WindowPeek) FrontWindow( ) ) ; 

do  {  /*  Continuously  poll  for  events  */ 

itsSwitchboard->ProcessEvent ( ) ;  /*  and  respond  to  them  */ 

if  ( urgent sToDo)  {  /*  Carry  out  urgent  chores  */ 

itsUrgentChores->DoForEachl (Chore_Perform/  ( long) &minSleep) ; 
itsUrgentChores->DisposeItems ( ) ; 
urgentsToDo  =  FALSE; 

} 


/*  Check  for  context-switch  with  */ 
/*  Desk  Accessories  */ 

if  (IsSystemWindow ( (WindowPeek) FrontWindow( )) )  { 
gSleepTime  =  0; 
if  (! aDAIsActive)  { 

aDAIsActive  =  TRUE; 

SwitchToDA ( ) ; 

} 

}  else  { 

if  (aDAIsActive)  { 

aDAIsActive  =  FALSE; 

SwitchFromDA ( ) ; 

} 

} 

}  while  (running);  /*  Until  flag  is  turned  off  */ 

} 


Preload 


Open/Print  files  selected  by  the  user  from  the  Finder  before 
launching  the  application 


void  CApplication :: Preload ( ) 
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{ 

short  openOrPrint;  /*  Type  of  action  requested  */ 

short  numPreloads;  /*  No.  of  files  to  process  */ 

register  short  i;  /*  Index  for  files  */ 

AppFile  macAppFile;  /*  Info  about  a  file  */ 

SFReply  macSFReply ;  /*  Standard  File  info  record  */ 

/*  Check  if  files  were  selected  */ 

CountAppFiles (&openOrPrint ,  knumPreloads ) ; 

for  (i  =  1;  i  <=  numPreloads;  i++)  {/*  Process  files  one  by  one  */ 

GetAppFiles (i,  &macAppFile) ;  /*  Get  info  about  the  file  */ 

/*  Copy  info  into  a  Standard  File  */ 

/*  record  */ 

macSFReply. fType  =  macAppFile . fType; 
macSFReply .vRefNum  =  macAppFile .vRefNum; 
macSFReply .version  =  macAppFile.versNum; 

CopyPString (macAppFile. f Name,  macSFReply . f Name ) ; 


OpenDocument ( &mac SFReply) ;  /*  Automatically  open  selected  file  */ 

if  (openOrPrint  ==  appPrint)  {  /*  User  wants  to  print  Document  */ 
gDesktop->UpdateWindows ( ) ; 
gGopher->DoCommand (cmdPrint ) ; 

} 

ClrAppFiles ( i ) ;  /*  We've  processed  this  file  */ 

} 

StartUpAction (numPreloads ) ;  /*  Perform  start  up  action  */ 

} 

/****************************************************************************★* 

StartUpAction 

Perform  any  desired  start  up  action.  This  method  is  invoked  after 
files  selected  from  the  Finder  have  been  opened/printed.  The  number 
of  preloaded  files  is  passed  as  a  parameter.  If  no  files  were 
preloaded,  this  default  method  acts  as  if  the  user  selected  "New” 
and  sends  the  Gopher  a  DoCommand (cmdNew)  message. 
*★***★★****■*■★★*********★★★*★****★*********★*******★******★****★***************/ 

void  CApplication: : StartUpAction ( 
short  numPreloads) 

{ 

FlushEvents (everyEvent ,  0); 
if  (numPreloads  ==  0)  { 

gGopher->DoCoramand (cmdNew) ; 

} 

} 
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Suspend 


Program  is  about  to  be  swapped 
Suspend  message  to  each  of  the 


out  under  MultiFinder.  Send  the 
Application ' s  Directors . 
************************************ 


/ 


/* 

*  Send  Suspend  message  to  a  director 
*/ 

static  void  DirectorjSuspend ( 

CDirector  * theDirector ) 

{ 

theDirector->Suspend ( ) ; 

} 

void  CApplication: : Suspend () 

{ 

/*  Tell  all  our  directors  that  we  */ 
/*  are  about  to  lose  control  */ 

i t sDi r ec t or s ->DoFor Each ( Direct or_Suspend) ; 

^  glnBackground  =  TRUE;  /*  We  are  going  into  the  background  */ 

z^**************************************************************^^^^^^^ 

Resume 


Program  is  being  swapped  in  under  MultiFinder 


Send  Resume  message  to  a  director 

static  void  Director_Resume ( 

CDirector  * theDirector ) 

{ 

theDirector->Resume ( ) ; 

} 


void  CApplication :: Resume ( ) 

{ 


/*  Do  nothing  if  a  DA  is  in  front 
if  ( ! IsSystemWindow ( (WindowPeek) FrontWindow( ) ) )  { 

glnBackground  =  FALSE;  /*  We  are  no  longer  in  background 

/*  Tell  all  directors  we  are  back 
/*  in  control 

itsDirectors->DoForEach (Director_Resume) ; 

} 


*/ 

*/ 

*/ 


SwitchToDA 


★ 


A  DA  is 


becoming  active 


/ 


29 


Conditional  Estimation  of  Vector  Patterns  in  Remote  Sensing  and  GIS 
4  Interim  Report  3a 

R&D  8249-EN-01 


void  CApplication: : SwitchToDA ( ) 

{ 

CurDeactive  =  NULL; 

Suspend ( ) ; 

} 

/****************************************************************************** 

SwitchFromDA 

Our  application  is  becoming  active  after  a  DA  had  been  running 
******************************************************************************/ 

void  CApplication :: SwitchFromDA ( ) 

{ 

CurActivate  =  NULL; 

Resume { ) ; 

} 

/****************************************************************************** 

Quit 

User  requested  quit.  Need  to  perform  a  graceful  shutdown, 
giving  the  user  the  opportunity  to  save  changed  files  or  to  abort 
the  quit  process. 

******************************************************************************/ 

void  CApplication : : Quit ( ) 

{ 

register  CWindow  *theWindow; 

CDirector  *theDirector ; 


running  =  FALSE;  /*  Assume  we  will  stop  running  */ 

/*  Run  through  all  our  windows  */ 
/*  (Does  not  include  floating  */ 
/*  windows  or  DAs)  */ 


theWindow  =  gDesktop->GetTopWindow ( ) ; 
while  (theWindow  !=  NULL)  { 

theDirector  =  (CDirector*)  theWindow->GetSupervisor ( ) ; 

/*  Tell  window's  Director  to  quit  */ 
/*  If  Quit  methode  returns  FALSE,  */ 
/*  abort  the  quit  sequence  */ 

if  ( ! theDirector->Quit ( ) )  { 

running  =  TRUE;  /*  User  still  wants  to  run  program  */ 

break; 

} 

theWindow  =  gDesktop->GetTopWindow ( ) ; 

} 

} 
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Exit 

Program  is  about  to  terminate.  Last  chance  to  clean  up. 


void  CApplication: :Exit ( ) 

{ 

}  /*  NULL  Method  */ 

/****************************************************************************** 

JumpToEventLoop 

Jump  to  the  beginning  of  the  main  event  loop.  Useful  when  trying 
to  recover  from  an  error. 

An  error  may  occur  BEFORE  program  ever  gets  to  the  event  loop.  In 
this  case  the  jump  buffer  entry  for  A1  (the  address  to  jump  to)  will 
be  NULL  and  we  exit  the  program. 

i'*****************************************************************************/ 

void  CApplication : : JumpToEventLoop ( ) 

{ 

if  ( event Loop Jump [JUMPBUFFER_A1 ]  !=  NULL)  { 

f_LongJump { eventLoopJump ,  1 ) ; 

}  else  { 

Exit ( ) ; 

ExitToShell ( ) ; 

} 

} 


/****  DOCUMENT  HANDLING  METHODS  ****/ 

/****************************************************************************** 

CreateDocument 

Make  a  document  in  response  to  the  "New"  GUI  selection.  This  method 
must  be  overridden  if  the  standard  "New"  command  is  used. 
******************************************************************************^ 

void  CApplication: : CreateDocument ( ) 

{ 

}  /*  NULL  Method  */ 

/****************************************************************************** 

OpenDocument 

Open  an  existing  file  and  create  a  document  object  for  displaying 
information.  This  method  must  be  overridden  if  the  standard  "Open" 
command  is  used. 

rAr****************************************************************************^ 


/*  We  never  got  to  the  event  loop  */ 
/*  Not  much  we  can  do  except  abort  */ 
/*  the  program  */ 
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void  CApplication : : OpenDocument ( 

SFReply  *macReply) 

{ 

}  /*  NULL  Method  */ 

/★★★★★★★★★★★★★★★★★★★★★★a******************************************************* 

ChooseFile 

Let  the  user  select  a  file  to  open.  Default  procedure  is  to  use 
the  Standard  GetFile  dialog  box. 

*******★**********************************************************************/ 

void  CApplication : :ChooseFile ( 

S  FRep ly  * ma c  S  FRep ly ) 

{ 

Point  corner;  /*  Top  left  corner  of  dialog  box  */ 

SignedByte  saveHState; 

/*  Center  dialog  box  on  the  screen  */ 
FindDlogPosition ( ' DLOG ' ,  sfGetDLOGid,  ^corner) ; 

saveHState  =  HGetState ( this ) ; 

HLock ( this ) ; 

SFPGetFile ( corner ,  NULL,  sfFileFilter ,  sfNumTypes,  sfFileTypes, 

s f GetDLOGHook ,  macSFReply,  sfGetDLOGid,  sfGetDLOGFilter ) ; 

HSetState ( this ,  saveHState); 

} 


/*★**★*★★***★*★★★★★★★**★*★****★****★★*****★***★★★***★★**********★★★★****★★*★*** 

AddDirector 

Add  a  Director  to  an  Application's  list  of  Directors 
****★■*■***★★★***************★★*****★★*★**★★***★*******★★*************★★****★**★/ 

void  CApplication :: AddDirector ( 

CDirector  *aDirector)  /*  Director  to  add  */ 

{ 

itsDirectors->Add (aDirector )  ; 

} 


/*********★★★********★********★*****★**★*★*******★**★*********★*★****★**★****★* 
Remo veDirec tor 

Eliminate  a  Director 

★★★★★★★★★★★★★★★a**************************************************************/ 
void  CApplication: : RemoveDirector ( 

CDirector  *theDirector )  /*  Director  to  remove  */ 

{ 
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} 


itsDirectors->Remove ( theDirector )  ; 


/****  CHORE  HANDLING  METHODS  ****/ 


Idle 


No  event  directed  to  our  application  is  pending.  Here's  our  chance 
to  perform  periodic  tasks.  The  classic  example  is  flashing  a 
text  insertion  cursor. 


/ 


void 

{ 


CApplication: :Idle( 

EventRecord  *macEvent)  /*  Usually  a  null  or  system  event 


Size 

register  CBureaucrat 

long 

long 


grow;  /*  Amount 
* theBureaucrat ; 
minSleep; 
maxSleep; 


heap  may  be  grown 


*/ 

*/ 


if  (rainyDayUsed)  {  /*  Memory  reserve  needs  to  be  "  */ 

/*  replenished  */ 

if  ( MaxMem ( &gr ow )  >  rainyDayFund  +  MINIMUM__BALANCE)  { 

/*  Enough  memory  has  been  freed  */ 

if  (rainyDay  !=  NULL)  { 

DisposHandle (rainyDay ) ; 

} 

rainyDay  =  NewHandle (rainyDayFund) ; 
rainyDayUsed  =  FALSE; 
memWarninglssued  =  FALSE; 

Memo ryRepleni shed ( ) ; 

}  else  if  (’memWarninglssued)  { 

/*  Inform  user  of  memory  shortage  */ 
gError->PostAlert (STRmemWarn,  iMEM_LOW) ; 
memWarninglssued  =  TRUE; 

} 

} 


/*  Idle  time  for  objects  in  the  */ 

/*  active  chain  of  command  */ 

theBureaucrat  =  gGopher;  /*  Start  at  the  bottom  */ 

minSleep  =  MAXLONG ; 

d°  (  /*  Run  thru  the  chain  of  command  */ 


/*  Let  bureaucrat  kill  some  time  */ 

maxSleep  =  MAXLONG; 
theBureaucrat->Dawdle (&maxSleep) ; 
minSleep  =  Min (minSleep ,  maxSleep) ; 

/*  Move  up  to  his/her  boss  */ 

theBureaucrat  =  theBureaucrat->itsSupervisor; 

}  while  (theBureaucrat  !=  NULL) ;  /*  Until  end  of  command  chain  */ 
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/*  Carry  out  assigned  chores  */ 

itsIdleChores->DoForEachl (Chore_Perf orm,  ( long) &minSleep) ; 
gSleepTime  =  minSleep; 


/****************************************************************************** 

AssignldleChore 

Give  Application  a  chore  to  perform  at  idle  time.  Idle  chores  are 
performed  whenever  there  are  no  events  pending  for  the  Application. 
******************************************************************************/ 

void  CApplication : : AssignldleChore ( 

CChore  *theChore)  /*  Chore  to  perform  */ 

{ 

itsIdleChores->Add ( theChore) ; 

gSleepTime  =0;  /*  Force  immediate  idle  */ 

} 


/**************★***★***********★*************************★********************* 
Cancel IdleChore 

Relieve  Application  of  an  idle  time  chore.  A  chore  must  NOT  cancel 
itself  or  any  other  chore. 

******************************************************************************/ 
void  CApplication: : CancelldleChore ( 

CChore  * theChore)  /*  Chore  to  cancel  */ 

{ 

itsIdleChores->Remove ( theChore) ; 

} 


AssignUrgentChore 


Give  Application  a  chore  to  perform  as  soon  as  possible.  Urgent 
chores  are  performed  only  once,  then  automatically  disposed. 

An  urgent  chore  must  NOT  post  another  urgent  chore. 


void  CApplication: : AssignUrgentChore { 

CChore  *theChore)  /*  Chore  to  perform  */ 

{ 

itsUrgentChores->Add ( theChore) ; 
urgentsToDo  =  TRUE; 

} 

.  Send  the  Suspend  message  to  each  of  the  Application's  Directors. 
*★★★★******★**************★*****★**********★*****■********★**★*★*★★*******★★★★★/ 


/* 

*  Send  Suspend  message  to  a  director 
*/ 

static  void  Director_Suspend ( 
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CDirector  *theDirector ) 

{ 

theDirector->Suspend ( ) ; 

} 

void  CApplication: : Suspend ( ) 

{ 

/*  Tell  all  our  directors  that  we  */ 
/*  are  about  to  lose  control  */ 

itsDirectors->DoForEach (Director_Suspend) ; 

glnBackground  =  TRUE;  /*  We  are  going  into  the  background  */ 

} 

/*************★★★*********★*★★**★*************★*★******★★★★★★*********★★******* 

Resume 

Program  is  being  swapped  in  under  UNIX  /temp 
/* 

*  Send  Resume  message  to  a  director 
*/ 

static  void  Director„Resume ( 

CDirector  *theDirector ) 

{ 

theDirector->Resume ( ) ; 

} 


void  CApplication: : Resume ( ) 

{ 

/*  Do  nothing  if  a  W95/W98  PROCESS  */ 
/*  is  in  front  */ 

if  ( ! IsSys temWindow ( (WindowPeek) FrontWindow { ) ) )  { 
glnBackground  =  FALSE ; 

/*  We  are  no  longer  in  background  */ 
/*  Tell  all  directors  we  are  back  */ 
/*  in  control  */ 

itsDirectors->DoForEach (Director_Resume) ; 

} 

} 


SwitchToW95/W98  PROCESS 
A  W95/W98  PROCESS  is  becoming  active 

★★★★★★★★★★★★★★★★★★★★★a********************************************************/ 
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void  CApplication : : SwitchToW95 /W98  PROCESS ( ) 

{ 

CurDeactive  =  NULL; 

Suspend ( ) ; 

} 

/*********************************************************★******************** 
SwitchFromW95/W98  PROCESS 

Our  application  is  becoming  active  after  a  W95/W98  PROCESS  had  been  running 

★★★it**************************************************************************/ 

void  CApplication :: SwitchFromW95/W98  PROCESS ( ) 

{ 

CurActivate  =  NULL; 

Resume ( ) ; 

} 

/*******★********************************************************************** 

Quit 

User  requested  quit.  Need  to  perform  a  graceful  shutdown,  giving  the  user  the 
opportunity  to  save  changed  files  or  to  abort  the  quit  process. 
***********★******************************************************************/ 


void  CApplication: : Quit ( ) 

{ 

register  CWindow  * theWindow; 

CDirector  * theDirector ; 

running  =  FALSE; 

/*  Assume  we  will  stop  running  */ 

/*  Run  through  all  our  windows  */ 

/*  (Does  not  include  floating  */ 

/*  windows  or  W95/W98  PROCESSs)  */ 
theWindow  =  gDesktop->GetTopWindow ( ) ; 
while  (theWindow  !=  NULL)  { 

theDirector  =  (CDirector*)  theWindow->GetSupervisor ( ) ; 

/*  Tell  window's  Director  to  quit  */ 
/*  If  Quit  methode  returns  FALSE,  */ 
/*  abort  the  quit  sequence  */ 

if  ( ! theDirector->Quit ( ) )  { 

running  =  TRUE;  /*  User  still  wants  to  run  program  */ 

break; 

} 

theWindow  =  gDesktop->GetTopWindow ( ) ; 

} 

} 
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* 


t 


Exit 


Program  is  about  to  terminate.  Last  chance  to  clean  up. 


■**•*•**•*••** 


void  CApplication: :Exit() 

{ 

}  /*  NULL  Method  */ 

JumpToEventLoop 


Jump  to  the  beginning  of  the  main  event  loop.  Useful  when  trying  to  recover  from  an 
error . 

An  error  may  occur  BEFORE  program  ever  gets  to  the  event  loop.  In  this  case  the 
jump  buffer  entry  for  A1  (the  address  to  jump  to)  will  be  NULL  and  we  exit  the 
program. 

********************************************************************************4'/ 


void 

{ 


} 


CApplication: : JumpToEventLoop ( ) 

if  (eventLoopJump [JUMPBUFFER_A1]  !=  NULL)  { 
f_Long Jump (event Loop Jump ,  1 ) ; 

}  else  { 


Exit  ( )  ; 

ExitToShell ( )  ; 


/*  We  never  got  to  the  event  loop 

/*  Not  much  we  can  do  except  abort 
/*  the  program  */ 


*/ 

*/ 


/****  IMAGE 


HANDLING 


METHODS  ****/ 


/***************************************************************************+*lt 

CreateDocument 

Make  a  document  in  response  to  the  "New"  GUI  selection.  This  method  must  be 
overridden  if  the  standard  "New"  command  is  used. 


******************************************************************************/ 
void  CApplication: : CreateDocument ( ) 
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{ 

}  /*  NULL  Method  */ 

/************************************************************★***************** 

OpenDocument 

Open  an  existing  file  and  create  a  document  object  for  displaying  information. 
This  method  must  be  overridden  if  the  standard  "Open "command  is  used. 
******************************************************************************/ 


void  CApplication: : OpenDocument ( 

SFReply  *UNIXReply) 

{ 

}  /*  NULL  Method  */ 


/****************************************************************************** 

ChooseFile 

Let  the  user  select  a  file  to  open.  Default  procedure  is  to  use  the  Standard 
GetFile  dialog  box. 


******************************************************************************/ 

void  CApplication: : ChooseFile ( 

SFReply  *UNIXSFReply) 

{ 

Point  corner;  /*  Top  left  corner  of 

/*  dialog  box 

SignedByte  saveHState;  /*  Center  dialog  box  on  the 

/*  screen 

FindDlogPosition ( ' DLOG 1 ,  sfGetDLOGid,  ^corner) ; 

saveHState  =  HGetState ( this ) ; 

HLock(this) ; 

SFPGetFile (corner ,  NULL,  sfFileFilter ,  sfNumTypes,  sfFileTypes, 
s f GetDLOGHook ,  UNIXSFReply,  sfGetDLOGid,  sfGetDLOGFilter) ; 

HSetState ( this ,  saveHState); 

} 


/********★★******★*★*★★*★★★***********★**********★****★*★**★★★****★********★★** 

AddDirector 

Add  a  Director  to  an  Application's  list  of  Directors 

Tic*****************************************************************************/ 


*/ 

*/ 

*/ 

*/ 
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void  CApplication : :AddDirector ( 

CDirector  *aDirector)  /*  Director  to  add  */ 

{ 

itsDirectors->Add (aDirector ) ; 

} 

/****************************************************************************** 

RemoveDirector 

Eliminate  a  Director 

t*****************************************************************************/ 


void  CApplication: : RemoveDirector ( 

CDirector  * theDirector )  /*  Director  to  remove  */ 

{ 

itsDirectors->Remove ( theDirector)  ; 

} 


/****  UNIX  -  CHORE  HANDLING  METHODS  ****/ 


Idle 


No  event  directed  to  our  application  is  pending.  Here’s  our  chance  to  perform 
periodic  tasks.  The  classic  example  is  flashing  a  text  insertion  cursor. 


******************************************************************************/ 
void  CApplication :: Idle ( 

EventRecord  *UNIXEvent)  /*  Usually  a  null  or  system  event  */ 

{ 

Size  grow;  /*  Amount  heap  may  be  grown  */ 

register  CBureaucrat  * theBureaucrat ; 
long  minSleep; 

long  maxSleep; 

if  (rainyDayUsed)  { 

/*  Memory  reserve  needs  to  be  */ 

/*  replenished  */ 

if  (MaxMem (&grow)  >  rainyDayFund  +  MINIMUM_BALANCE)  { 


/*  Enough  memory  has  been  freed  */ 

if  (rainyDay  !=  NULL)  { 

DisposHandle (rainyDay) ; 
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} 

rainyDay  =  NewHandle (rainyDayFund) ; 
rainyDayUsed  =  FALSE; 
memWarninglssued  =  FALSE; 

Memo ryRepleni shed ( ) ; 

}  else  if  (! memWarninglssued)  { 

/*  Inform  user  of  memory  shortage 

gError->PostAlert (STRmemWarn,  iMEM_LOW) ; 
memWarninglssued  =  TRUE; 

} 

} 


/*  Idle  time  for  objects  in  the 
/*  active  chain  of  command 


theBureaucrat  =  gGopher; 

/*  Start  at  the  bottom 

minSleep  =  MAXLONG; 

do  {  /*  Run  thru  the  chain  of  command 

/*  Let  bureaucrat  kill  some  time 

maxSleep  =  MAXLONG; 
theBureaucrat ->Dawdle (&maxSleep) ; 
minSleep  =  Min (minSleep ,  maxSleep); 

/*  Move  up  to  his/her  boss 
theBureaucrat  =  theBureaucrat->itsSupervisor ; 

}  while  (theBureaucrat  !=  NULL) ; 


/*  Until  end  of  command  chain 
/*  Carry  out  assigned  chores 

itsIdleChores->DoForEachl (Chore_Perform7  ( long)  SaninSleep) ; 
gSleepTime  =  minSleep; 


AssignldleChore 


Give  Application  a  chore  to  perform  at  idle  time.  Idle  chores  are  performed 
whenever  there  are  no  events  pending  for  the  Application. 


void  CApplication : : AssignldleChore ( 
CChore  *theChore) 
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/*  Vector  Chore  to  perform 


itsIdleChores->Add ( theChore) ; 
gSleepTime  -  0; 


/*  Force  immediate  idle 


Cancel IdleChore 


Relieve  Application  of  an  idle  time  chore.  A  chore  must  NOT  cancel  itself  or  any 
other  chore . 


void  CApplication: : CancelldleChore { 

CChore  * theChore)  /*  Chore  to  cancel  */ 

{ 

itsIdleChores->Remove ( theChore) ; 

} 


AssignUrgentChore 


Give  Application  a  chore  to  perform  as  soon  as  possible.  Urgent  chores  are 
performed  only  once,  then  automatically  disposed.  An  urgent  chore  must  NOT  post 
another  urgent  chore . 

****★★*★***★******★**★★****★***★***********★★★*********************★*★**★*★*★*/ 


void  CApplication: : AssignUrgentChore ( 

CChore  * theChore)  /*  Chore  to  perform  */ 

{ 

itsUrgentChores->Add( theChore) ; 
urgentsToDo  =  TRUE; 

} 
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Additional  Interim  Report  3a  (01  September  1998) 

Conditional  Estimation  of  Vector  Patterns  in  Remote  Sensmg  an 


contract  no.  N  68171 97  C  9027  nM 

contractor.  UvA,  Applied  Logic  Labratory/CCSOM 
Principal  Investigator:  Dr.  M.  Masuch 


1,  statement  showing  amount  of  unused  funds  a,  the  end  of  the  covered  period 


2nd  Incrementally  Funded  Peric  total 
December  1998  -September  1999 

3rd  Incrementally  Funded  Perio  total 
October  1999  -  July  2000 

Total  unused  funds  from  Sept  1998 
until  Februari  2000: 


150,000.00 

150,000.00 

300,000 


2.  List 


of  impotant  property  acquired  with  contract 


funds  during  this  period 


none 


